1*2*3*4*5 посчитать произведение при помощи цикла for

Question

1*2*3*4*5
посчитать произведение при помощи цикла for

Answer 1

//Pascal ABC.NET 3.1 сборка 1219

Var
 i,k:integer;
begin
k:=1;
for i:=1 to 5 do
k:=k*i;
writeln(k);
end.