1)вычислить p=n! ,где n вводится с клавиатуры с трех видов цикла(1)repeat 2)while 3)for 2)модифицировать эти программы введя проверку n,если n> 7,то вывести фразу"превышение допустимых значений" в другом случае подсчитать n!

1)

program factorial;
var
a,n,i:integer;
begin
writeln('Вычисление факториала P=N!');
write('Введите значиние N: '); readln(n);
a:=0;
for i:=1 to n do a:=a+i;
writeln('P=', a);
end.

2)

program factorial;
var
a,n,i:integer;
begin
writeln('Вычисление факториала P=N!');
write('Введите значиние N: '); readln(n);
if n>7 then writeln('Превышение допустимых значений')
else
begin
a:=0;
for i:=1 to n do a:=a+i;
writeln('P=', a);
end;
end.