Question

найдите произведение 5 целых чисел паскаль

Answer 1

var a, p, t: longint;
begin
p:=1;
for t: 1 to 5 do
begin
readln (a);
p:=p*a;
end;
writeln (p);
end.