Program sosanhavab;
uses crt;
var a,b: integer;
begin
clrscr;
write['nhap a:']; readln[a];
write['nhap b:']; readln[b];
if a>b then writeln ['a *** hon b'] else if a
Program sosanhavab;
uses crt;
var a,b: integer;
begin
clrscr;
write['nhap a:']; readln[a];
write['nhap b:']; readln[b];
if a>b then writeln ['a *** hon b'] else if a