Question

Написать программу на нахождение суммы и произведения трех чисел. Программа должна быть одна/

Answer 1

Var a,b,c:integer;
begin
writeln('введите три числа');
readln(a,b,c);
writeln('произведение трёх чисел ==>',a*b*c);
writeln('сумма трёх чисел ==>',a+b+c);
end.