Cek Prima

procedure TForm14.Button1Click(Sender: TObject);
var n,i :integer;
begin
n:= strtoint(edit1.Text);

edit2.text:= ('prima')    ;
for i:= 2 to n-1 do
begin
if n mod i =0 then
edit2.text:=  ('bukan prima') ;
end;

if n=1 then  edit2.text:=  ('bukan prima') ;
end;