Помогите!Проверьте плиз блок-схему

[ykcyc]

Токо начал пробовать поэтому не уверен.
___________________________________ _
Program Prime_numbers;
uses crt;
var g,f,i,p, N :integer;
var t:real;
begin
clrscr;
write('Your number is ');
read(N);
if N<=1 then
begin
writeln('Your number is 1 or smaller');
readkey;
end

else
begin
g:=n-1;
F:=1;
for i:= 2 to g do F:=F*i;
t:=((F+1)/N);
p:=trunc(t);
if t=p then
writeln('Your number is a Prime number')
else
writeln('Your number is NOT a Prime number');
{writeln(t:7:2, f:7, p:7);}
readkey;
end;
end.
___________________________________ _______________

[puporev]

Если не считать, что многие действия объединены и опущены предопределенные процессы типа clrscr; readkey; , то правильно.