1.

program ctpt;

uses crt;

  var a, h, S: real;

begin

          clrscr;

          write('Nhap a = '); readln(a);

          write('Nhap h = '); readln(h);

          S:=a*h/2;

          writeln('Dien tich tam giac la: ', S:2:1);

          readln

end.

2.

program ctpt;

uses crt;

  var r, c: real;

begin

          clrscr;

          write('Nhap r = '); readln(r);   

          c:=2*r*pi;

          writeln('Dien tich hinh tron la: ', c:2:1);      

          readln

end.

3.

program ctpt;

uses crt;

  var

begin

          clrscr;

          write('Nhap a = '); readln(a);

          write('Nhap b = '); readln(b);   

          if a>b then write(a) else 

                 if a<b then write(b) else

                             write('Hai so ban vua nhap bang nhau');     

          readln

end.