program kiem_tra_so_nguyen_to;

var
  N, i: integer;
  la_so_nguyen_to: boolean;

begin
  // Nhập số tự nhiên N từ bàn phím
  write('Nhap so tu nhien N: ');
  readln(N);

  // Kiểm tra N có phải là số nguyên tố hay không
  la_so_nguyen_to := true;
  if N < 2 then
    la_so_nguyen_to := false
  else
  begin
    for i := 2 to trunc(sqrt(N)) do
    begin
      if N mod i = 0 then
      begin
        la_so_nguyen_to := false;
        break;
      end;
    end;
  end;

  // In kết quả ra màn hình
  if la_so_nguyen_to then
    writeln(N, ' la so nguyen to')
  else
    writeln(N, ' khong la so nguyen to');

  readln;
end.