program oken; uses crt; var i,n,dem:longint; kt:boolean; begin clrscr; write('Nhap n: '); readln(n); write('Uoc cua 5: '); for i:=1 to n-1 do if n mod i=0 then write(i,' '); if (n=0) or (n=1) then kt:=false else begin dem:=0; for i:=2 to (n div 2) do if n mod i =0 then dem:=dem+1; if dem<>0 then kt:=false else kt:=true; end; writeln; if kt=true then writeln(n,' la so nguyen to') else writeln(n,' khong phai la so nguyen to'); readln; end.
