Question

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

Answer 1

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