uses crt;
var n:integer;
begin
clrscr;
write ('nhap n: '); readln (n);
if n mod 2=0 then
begin
writeln ('n la so chan');
if n>1000 then
writeln ('n lon hon 1000');
if n<1000 then
writeln ('n nho hon 1000');
if n=1000 then
writeln ('n bang 1000');
end;
if n mod 2<>0 then
begin
writeln ('n la so le');
if n>200 then
writeln ('n lon hon 200');
if n<200 then
writeln ('n nho hon 200');
if n=200 then
writeln ('n bang 200');
end;
readln;
end.
