uses crt;
var n,i: integer;
begin
clrscr;
writeln('chuong trinh kiem tra tinh nguyen to ');
writeln('moi ban nhap so : ');
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.
dXNlcyBjcnQ7CnZhciBuLGk6IGludGVnZXI7CmJlZ2luCgljbHJzY3I7CiAgICB3cml0ZWxuKCdjaHVvbmcgdHJpbmgga2llbSB0cmEgdGluaCBuZ3V5ZW4gdG8gJyk7CiAgICB3cml0ZWxuKCdtb2kgYmFuIG5oYXAgc28gOiAnKTsKICAgIHJlYWRsbihuKTsKICAgIHdoaWxlIChuPD0wKSBkbwogICAgCWJlZ2luCiAgICAgICAgCXdyaXRlbG4oJ21vaSBiYW4gbmhhcCBsYWkgc28gbmd1eWVuOicpOwogICAgICAgIAlyZWFkbG4obik7CiAgICAJZW5kOwogICAgaTo9IHJvdW5kIChzcXJ0KG4pKTsKICAgIGlmIChuIG1vZCBpPD4wKSB0aGVuCiAgICB3cml0ZSgnbiBsYSBzbyBuZ3V5ZW4gdG8nKQogICAgZWxzZQogICAgd3JpdGUoJ24ga2hvbmcgcGhhaSBsYSBzbyBuZ3V5ZW4gdG8nKTsKICAgIHJlYWRsbjsKZW5kLg==