a) uses crt ;
var a,b :integer;
begin
clrscr;
writeln('nhap hai so a va b');
readln(a,b);
if a=b then writeln('khong thoa man de bai ') else
if a<b then writeln( 'hai so do lan luot theo thu tu giam dan la ',b,a) else writeln( 'hai so do lan luot theo thu tu giam dan la ',a,b);
readln
end.
b) uses crt ;
var a :integer;
begin
clrscr;
writeln('nhap  so a ');
readln(a);
if a mod 2 =0 then writeln( 'a la so chan') else writeln( 'a la so le');
readln
end.