Question

Написать программу вычисления произведения пяти чисел введённых с клавиатуры.

Answer 1

Var a,b,c,pr,d,e:longint;
Begin
Writeln('Введите 5 чисел-');
Readln(a,b,c,d,e);
Pr:=a*b*c*d*e;
Writeln('Произведение=',pr);
End.