1.

program ctpt;

uses crt;

  var a, b, c, h, S, cv: real;

begin

          clrscr;

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

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

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

          if (a+b<0) or (a+c<0) or (b+c<0) then write('Khong la ba canh cua mot tam giac') else

          begin

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

                   cv:=a+b+c;

                   S:=a*h/2;

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

                   write('Chu vi tam giac la: ', cv:2:1);

           end;

          readln

end.

2.

program ctpt;

uses crt;

  var a, b: integer;

begin

          clrscr;

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

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

          if (a=0) and (b=0) then write('Phuong trinh vo so nghiem');

          if (a=0) and (b<>0) then write('Phuong trinh vo nghiem');

          if (a<>0) then write('Phuong trinh co nghiem la x = ', -b/a);

          readln

end.

3.

4.

program ctpt;

uses crt;

  var a, b, c, d, max: real;

begin

          clrscr;

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

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

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

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

          max:=a;

          if max<b then max:=b;

          if max<c then max:=c;

          if max<d then max:=d;

          write(max, ' la so lon nhat');

          readln

end.

5.

program ctpt;

uses crt;

  var a, b, c, d, min: real;

begin

          clrscr;

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

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

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

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

          min:=a;

          if min>b then min:=b;

          if min>c then min:=c;

          if min>d then min:=d;

          write(min, ' la so lon nhat');

          readln

end.

6.