Вводиться n, вывести (n! +2) блок схему и программу на паскаль.

Var sum: LongInt;
i,n: Integer;
begin
sum:=1;
writeln('Введите n');
readln(n);
for i:=1 to n do
begin
sum:=sum*i;
end;
writeln('(n!+2) = (',n,'!+2)=',sum+2);
end.

program znanijatop;
var
    i,n,ans:integer;
begin
writeln('Vvedite n');
readln(n);
i:=0;
ans:=1;
while i<n do begin
    i:=i+1;
    ans:=ans*i;
    end;
ans:=ans+2;
writeln('result ',ans);
end.