uses crt; var n:longint; function nt(n:longint):boolean; var i:longint; begin if n<2 then exit(false); for i:=2 to trunc(sqrt(n)) do if n mod i = 0 then exit(false); exit(true); end; begin clrscr; readln(n); if nt(n)=true then write(n,' la thua so nguyen to') else write(n,' khong phai la thua so nguyen to'); readln; end.
Uses crt; Var n:longint; Function nt(n:longint):boolean; Var i:longint; Begin If n<=1 then exit(false) else For i:=2 to (N div 2)+1 Do If (N mod i=0)And(I<>N) then exit(false); Exit(true); End; Begin Clrscr; Readln(n); Writeln(nt(n)); Readln End.
