Question

помогите написать программу pascal

Answer 1

Ответ:

===== PascalABC.NET =====

var

 n, a: integer;

begin

 n := 1;

 a := 1;

while n<11 do

  begin

   a := a * n;

   writeln('a ',n,' = ',a);

   inc(n);

  end;

end.

Объяснение: