значение переменной p при n=5 после выполнения программы
ProgrammTest;
Var p,i,n:integer;
Begin
Write('Введите цельное n=')
Readln(n);
p:=1
for i:=1 to n do
p:=p*i;
Writeln(n,'=',p)
End