var a,b,c,s,p:integer;
sr:real;
begin
writeln('Введите 3 целых числа');
readln(a,b,c);
s:=a+b+c;
p:=a*b*c;
sr:=(a+b+c)/3;
write('Сумма=',s,' произведение=',p,' среднее арифметическое=',sr:0:3);
readln
end.
Программа на onlinegdb
var a,b,c,s,p:integer;
sr:real;
begin
writeln('Введите 3 целых числа');
readln(a,b,c);
s:=a+b+c;
p:=a*b*c;
sr:=(a+b+c)/3;
write('Сумма=',s,' произведение=',p,' среднее арифметическое=',sr:0:3);
readln
end.
Программа на onlinegdb