nhập vào một số bất kì gồm 4 chữ số kiểm tra xem có phải số nguyên tố không

var n, i : integer ;
begin
    readln(n);
    for i := 1 to trunc(sqrt(n)) do
        if n mod i = 0 then 
             begin
            write(n,' la so nguyen to'); halt ;
             end ;
    write(n,' khong la so nguyen to');
end .

var n, i, kt: Integer;

begin
  readln(n);
  kt := 1;
  i := 2;
  while i * i <= n do
  begin
    if n mod i = 0 then kt := 0;
    i := i + 1;
  end;
  if kt = 1 then writeln('Đây là số nguyên tố!') else writeln('Đây không phải là số nguyên tố');
end.