1.
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 lon hon b') else if a<b then writeln ('b lon hon a')
else writeln ('a bang b');
readln;
end.
2.
Program sua loi;
uses crt;
var a,b,s : real;
Begin
clrscr;
write ('nhap a=') ;readln(a);
write (nhap b=') ; readln(b);
s:= (a*b)/2;
write ('s=',s);
readln;
End.