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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.