определить является ли число простым

Ответ от Никита Матросов[гуру]
Function prost(a:Longint): boolean; {Опиши такую функцию}
var
k: longint;
begin
For k:=2 to a div 2 do
If a mod k =0 then begin
prost:=false;
exit; end else
prost:=true;
end;
var
c: longint;
Begin
Read(c);
Writeln(prost(c));
Readln;
End.