[Yurij]

Не уверен это ли, так как сейчас нет времени дальше искать.
Отпиши потом - подошло ли.

program pir_сршыд;
var x: integer;
{ function ISPRIMFN (n : longint) : boolean;
var i : longint;
begin
isprimfn := true;
for i := 2 to Round(Sqrt(n)) do
if (n mod i) = 0 then begin
isprimfn := false;
exit;
end;
end; }
function pirminis(x: integer):boolean;
var i, j, tmp: integer;
begin
tmp:=0;
if (x>0) then begin
for i:=1 to x do
if x mod i = 0 then tmp:=tmp+1; {kollichesto delitelej}
if tmp=2 then pirminis:=true else
pirminis:=false;
end else
pirminis:=false;
end;
begin
Write('vvedite chislo: ');
ReadLn(x);
if pirminis(x) then WriteLn('pravilnoe chislo') else
WriteLn('ne to...');
ReadLn
end.