dung mang con kiem tra so nguyen to
dung vong while (n div 10<>0) and (nt) then
n:=n div 10;
if n div 10=0 then write(' la so snt') else write(' khong phai so snt');