Question

составьте программу:пользователь вводит 3 любых целых числа.Найти: сумму,произведение,деление произведения на сумму этих чисел)пожалуйста

Answer 1

var a, b, c, sum, proiz, del: real;
begin
readln (a, b, c);
sum:=a+b+c;
proiz:=a*b*c;
del:=proiz/sum;
writeln ('sum=', sum);
writeln ('произведение=', proiz);
writeln ('деление произведения на сумму=', del);
end.