Помогите пж очень надо, в программе паскаля надо написать

program faktorial;

var n,s,k: real;

begin

write('ВВедите n ');

readln(n);

s:=1; k:=1;

while k<n do

begin

k:=k+1;

s:=s*k;

end;

writeln('ответ ',s:0:1);

end.

Факториал нуля равен единице. Если N по условию может быть отрицательным, сразу после ввода следует это проверить.

Будем хранить ответ в переменной fc с начальным значением 1. Будем перебирать все числа от 2 до N и домножать fc на каждое из них.

var

 n, i, fc: longint;

begin

 read(n);

 fc := 1;

 for i := 2 to n do

   fc := fc * i;

 writeln(fc);

end.

Используем цикл for, но вместо to будем писать downto.

var

 i: integer;

begin

 for i := 28 downto 17 do

   writeln(i);

end.