Ответ:

Объяснение:

Задание 1

Program zadacha1;

var

s,n : integer;

begin

 writeln('Введите N');

 read(n);

 s:=0;

 while  (n<>0) do

 begin

   inc(s,n);

   dec(n);

 end;

 writeln('Сумма = ',s);

end.

Задание 2

var

   factorial: longint;

   n, i: byte;

begin

   write('n = '); readln(n);

   factorial := 1;

   for i:=2 to n do

       factorial := factorial * i;

   writeln('n! = ', factorial);

end.