Подпрограммы. Проверка гипотизы Гольбаха для числа

[Alexsey1991]

Решите
Дано число n>2;роверить для этого числа гипотизу Гольбаха.Это гипотиза заключается в том, что каждое число n, больше двух, представляется в виде суммы двух простых чисел.Определить функцию, распознающую простое число.Работа в паскале!

[Google2010]

Определить функцию, распознающую простое число

function prime(n:longint):boolean;
var i:integer;
f:boolean;
begin
 f:=true;
 for i:=2 to round(sqrt(n)) do if n mod i=0 then
 begin
  f:=false;
  break;
 end;
 prime:=f;
end;

[Alexsey1991]

а полностью код не можете пожалуйста написать!!

[ROMA2PVT]

Var n,item1:integer; hypot:boolean;
Function Simple(n:integer):boolean;
Var i:integer;
simp:boolean;  {simp=False, если встретится делитель числа n}
begin
if n=2 then Simple:=True
else if n mod 2=0 then Simple:=False
else  begin
simp:=True;
i:=3;
while (i<=trunc(sqrt(n))) and simp do
if n mod i=0 then simp:=False
else i:=i+2;
if simp then Simple:=True else Simple:=False;
end;
end;
BEGIN
n:=1;                               {условно для выполнения цикла}
while n mod 2 = 1 do
begin
write('n='); readln (n);
if n mod 2 = 1 then writeln('Число n должно быть четным!')
end;
hypot:=False;
if n=4 then begin                               {проверяем и число 4}
item1:=2;
hypot:=True
end
else  begin                             {n>4}
item1:=3;
while (item1<=n div 2) and not hypot do
if Simple(item1) and Simple(n-item1) then hypot:=True
else item1:=item1+2
end;
if hypot  then
begin
writeln('Для данного n гипотеза справедлива');
writeln('Простыми слагаемыми являются числа ',item1,' и ',n-item1) end
else writeln('Для данного n гипотеза не справедлива');
END.

[Alexsey1991]

Спасибо всем кто помогал!

[ROMA2PVT]

Не за что.