{ Составить программу определяющую яв-ся ли число простым. }

uses crt;
var a : real;
    p : boolean;
    i : integer;
procedure haltproc;
begin
  writeln('неверные данные');
  writeln('a>=2');readln;
  halt;
end;
begin
  clrscr;
  write('a=');readln(a);
  if a<2 then haltproc;
  if a=2 then begin
writeln2('простое');
readln;halt;
end;
  p:=true;
  for i:=2 to trunc(a-1) do
  if a/i=trunc(a/i)
   then p:=false;
  if p=true
     then write('простое')
     else write('не простое');
  readln;
end.