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

Question

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

Answer 1

Program vhh;
var a1,a2,a3,a4,a5,p:integer;
begin
writeln('vvedite a1,a2,a3,a4,a5');
readln(a1,a2,a3,a4,a5);
p:=a1*a2*a3*a4*a5;
writeln('p=',p);
end.

Answer 2

1*2*3*4*5=120........

Comments

это нужно решить по циклическому алгаритму!