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.
Буду очень рад, если укажете мой ответ как "лучший"
