uses crt;
var n,i: integer;
begin
writeln('chuong trinh kiem tra tinh nguyen to ');
writeln('moi ban nhap so :17');
readln(n);
while (n<=0) do
begin
writeln('moi ban nhap lai so nguyen:');
readln(n);
end;
i:= round (sqrt(n));
if (n mod i<>0) then
write('n la so nguyen to')
else
write('n khong phai la so nguyen to');
readln;
end.
dXNlcyBjcnQ7CnZhciBuLGk6IGludGVnZXI7CmJlZ2luCiAgICB3cml0ZWxuKCdjaHVvbmcgdHJpbmgga2llbSB0cmEgdGluaCBuZ3V5ZW4gdG8gJyk7CiAgICB3cml0ZWxuKCdtb2kgYmFuIG5oYXAgc28gOjE3Jyk7CiAgICByZWFkbG4obik7CiAgICB3aGlsZSAobjw9MCkgZG8KICAgIAliZWdpbgogICAgICAgIAl3cml0ZWxuKCdtb2kgYmFuIG5oYXAgbGFpIHNvIG5ndXllbjonKTsKICAgICAgICAJcmVhZGxuKG4pOwogICAgCWVuZDsKICAgIGk6PSByb3VuZCAoc3FydChuKSk7CiAgICBpZiAobiBtb2QgaTw+MCkgdGhlbgogICAgd3JpdGUoJ24gbGEgc28gbmd1eWVuIHRvJykKICAgIGVsc2UKICAgIHdyaXRlKCduIGtob25nIHBoYWkgbGEgc28gbmd1eWVuIHRvJyk7CiAgICByZWFkbG47CmVuZC4=