a)
Program BTT;
Uses crt;
Var a,b: longint;
Begin
Clrscr;
Write('Nhap a: '); Readln(a);
Write('Nhap b: '); Readln(b);
If a>b then Write(a,' lon hon ',b)
Else If a<b then Write(b,' lon hon ',a)
Else Write('Hai so bang nhau');
Readln
End.
c)
Program BTT;
Uses crt;
Var a,b,c,s,p: real;
Begin
Clrscr;
//Tam giac
Write('Nhap do dai 3 canh: '); Readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Write('S = ',s:0:2);
//Hinh vuong
Write('Nhap do dai canh: '); Readln(a);
s:=sqr(a);
Write('S = ',s:0:2);
//Hinh tron
Write('Nhap ban kinh: '); Readln(r);
s:=sqr(r)*3.14;
Write('S = ',s:0:2);
Readln
End.