uses crt;

var n,i:integer;

      ok:boolean;

BEGIN

clrscr;

write('Nhap n: ');  readln(n);

if n mod 2=0 then writeln('So ',n,' la so chan')

else writeln('So ',n,' la so le');

if n<2 then write('So ',n,' khong la so nguyen to')

else

begin

ok:=true;

for i:=2 to trunc(sqrt(n)) do

if n mod i=0 then

ok:=false;

if ok then

writeln('So ',n,' la so nguyen to')

else

writeln('So ',n,' khong la so nguyen to');

end;

readln;

END.

uses crt;
var n,i,s,d:longint;
      kt:boolean;
begin
      clrscr;
      write('Nhap so co 4 chu so: '); readln(n);
      for i:=1 to n do if n mod 2=0 then kt:=true;
      if kt=true then writeln(n,' la so chan')
      else kt:=false;
            if kt=false then writeln(n,' la so le');
      if n<2 then write(n,' khong phai la so nguyen to');
      for i:=2 to n do if n mod i=0 then inc(d);
      if d=2 then kt:=true
      else kt:=false;
      if kt=true then writeln(n,' la so nguyen to')
      else if kt=false then writeln(n,' khong la so nguyen to');
      for i:=1 to n div 2 do if n mod i=0 then inc(s,i);
      if s=n then
            begin
                  kt:=true;
                  writeln(n,' la so hoan hao');
            end
      else
            begin
                  kt:=false;
                  if kt=false then writeln(n,' khong la so hoan hao');
                  exit;
            end;
      readln;
end.