1/
program bai1;
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
if a>b then writeln(a,' ',b)
else writeln(b,' a');
readln
end.
2/
program bai2;
uses crt;
var n:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
readln;
end.