Ввести с клавиатуры три целых числа, найти их сумму, произведение и среднее...

Question

Ввести с клавиатуры три целых числа, найти их сумму, произведение и среднее арифметическое в pascal ABC
Пример:
Введите три целых числа :
5 7 8
5+7+8=20
5*7*8=280
(5+7+8)/3=6,667

Answer 1

Vara:real;b:real;c:real;d1:real;d2:real;d3:real;
Beginwriteln ('Введите числа');readln (a);readln (b);readln (c);d1:= a+b+c;d2:= a*b*c;d3:= (a+b+c)/3;writeln ('Сумма =',d1,',произведение =',d2,', а среднее арифметическое =',d3,'')end.