Viết chương trình nhập vào một số tự nhiên N từ bàn phím và kiểm tra N có phải là một số nguyên tố hay không?

uses crt;
var i,s,n:integer;
    a:array[1..1000] of integer;
begin
 clrscr;
 write(‘Nhap n: ‘);
 readln(n);
 if (n mod 2=0) then write(n,’ ko la snt’)
 else
  begin
   for i:=2 to n-1 do if (n mod i = 0) then break;
   if i=n-1 then write(n,’ la snt’) else write(n,’ ko la snt’);
  end;
 readln;
end.

Vote mình nha :3