Составте программу которая находит произведение всех натуральных чисел от 1 до 20

Question

Составте программу которая находит
произведение всех натуральных чисел от 1 до 20

Answer 1

Var a,p:integer;
begin
  p:=1;
  for a:=1 to 20 do
    p:=s*a;
  writeln(p);
end.

Comments

спасибо