Составьте программку определяющую, является ли число x обычным

Uses crt; var a : real; p : boolean; i : integer; procedure haltproc; begin writeln('неправильные данные'); writeln('agt;=2');readln; halt; end; begin clrscr; write('a=');readln(a); if alt;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.