написать программу в Паскале

var

 a,b,c:integer;

begin

 //На "5"

 write('vvedite tri chisla: '); readln(a,b,c);

 writeln('Sum:',a+b+c);

 writeln('Pr:',a*b*c);

 writeln('Sr.Ar:..',(a+b+c)/3:4:2);

end.

Буду очень рад, если укажете мой ответ как "лучший"