program bt;
var
n, i, dem:integer;
begin
write('Moi ban nhap n: ');readln(n);
for i:=1 to n do if n mod i=0 then dem:=dem+1;
if dem=2 then write(n,' la so nguyen to') else write(n,' khong la so nguyen to');
readln;
end.
#Thuat_nay_khong_toi_uu_lam_nhung_chac_ban_se_hieu
#Chuc_ban_hoc_tot