Составьте программу в паскале ,очень надо и быстро пожалуйста !! Подсчитать произведение...

Question

Составьте программу в паскале ,очень надо и быстро пожалуйста !!
Подсчитать произведение первых семнадцати целых положительных чисел

Answer 1

Var i : integer; p:real;
begin
p:=1;
for i:=1 to 17 do p:=p*i;
writeln(p);
end.