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, 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.