Вычисление факториала f=n! описать с помощью цикла с предусловием
и цикла с постусловием; сделать проверку на отрицательность n
при вводе. Организовать выход из программы по нажатию клавиши
ESC- Pascal(Паскаль)

Uses
 CRT;
Var
 fact:real;
 i,n:integer;
 key,l:char;
begin
ClrScr;
repeat
write(' n: ');
readln(n);
if n<0 then
begin
writeln('n');
end
else
begin
fact:=1;
i:=1;
while i<=n do
begin
fact:=fact*i;
inc(i);
end;
writeln('Fact:=',fact);
end;
until n>0;
readln;
end.

Uses
 CRT;
Var
 fact:real;
 i,n:integer;
 key,l:char;
begin
ClrScr;
repeat
write(' n: ');
readln(n);
if n<0 then
begin
writeln('n');
end
else
begin
fact:=1;
i:=1;
repeat
begin
fact:=fact*i;
inc(i);
end;
until i>n;
writeln('Fact:=',fact);
end;
until n>0;
readln;
end.