Вводиться n, вывести (n!+2)

Блок схему и программу на Паскаль. Пожалуйста.

Упс, блок-схему не прикрепил=).

Также как вариант для экономия памяти для переменных i и n присвоить тип данных байт

program znanijatop;var     i,n,ans:integer;beginwriteln('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.