Дано натуральное число n.Выяснить , является ли оно простым .Определить функцию,позволяющую распознавать простые числа.

function prime(n:longint):boolean;var i,j:longint;p:boolean;Beginp:=true;if (n mod 2)=0 then p=false;i:=3;j:=round(sqrt(n));while (i<=j)and(p) doBeginif(n mod i)=0 then p=false;inc(i,2);end;prime:=p;end;