Program Hotboy ;

     Uses crt;

     Var a,b,c,p,S: real;

     Begin

     clrscr;

     Write('Nhap canh a:');readln(a);

     Write('Nhap canh b:');readln(b);

     Write('Nhap canh c:');readln(c);

     p:=(a+b+c)/2;

     S:= sqrt(p*(p-a)*(p-b)*(p-c));

     Write('Dien tich hinh tam giac la',s:3:6);

     Write('chu vi cua hinh tam giac          la',a+b+c);

     Readln

     End.

Program baitap;

Uses crt;

Var a,b,c,h:real;

Begin

Clrscr;

Write('Nhap vao lan luot 2 canh ben cua tam giac:');

Readln(a,b);

Write('Nhap vao canh day cua tam giac:');

Readln(c);

Write('Nhap vao chieu cao cua tam giac:');

Readln(h);

Writeln('Chu vi cua tam giac la:',a+b+c);

Writeln('Dien tich cua tam giac la:', a*h/2:5:2);

Readln

End.