uses crt;
var a,h,s: real;
begin
clrscr;
write ('nhap canh day: '); readln (a):
write ('nhap chieu cao: '); readln (h);
s:=a*h/2;
writeln ('dien tich la: ',s);
if s>50 then writeln ('dien tich tam giac lon hon dien tich hinh chu nhat');
if s<50 then writeln ('dien tich tam giac nho hon dien tich hinh chu nhat');
if s=50 then writeln ('dien tich tam giac bang dien tich hinh chu nhat');
readln;
end.