Kiểm tra xem 1 số cỏ phải là số nguyên tố hay không.dùng thủ tục AI làm mik vote 5sao vs tym

uses crt;
var n,i:longint;
Procedure kt(var i:longint);
   begin
      i:=2;
      while(n>1)and(n mod i<>0)do inc(I);
   end;
begin
clrscr;
   write(‘Nhap 1 so: ‘);readln(n);
   kt(i); if i=n then writeln(‘Day la so nguyen to’)
   else writeln(‘Day khong la so nguyen to’);
readln
end.