program tam_giac;

uses crt;

var a, b, c, h, cv : integer;

      s : real;

begin

clrscr;

write('nhap do dai canh a :');readln(a);

write('nhap do dai canh b :');readln(b);

write('nhap do dai canh c :');readln(c);

write('nhap chieu cao cua canh a :');readln(h);

cv := a + b + c;

s := 0.5 *a * h;

writeln('chu vi tam giac la :', cv);

writeln('dien tich tam giac la :', s:4:2);

readln

end.

Program TAMGIAC;
Uses crt;
Var a,b,c,h,p:integer;
    S:real;
Begin
    Clrscr;
    Write('a = ');readln(a);
    Write('b = ');readln(b);
    Write('c = ');readln(c);
    Write('h = ');readln(h);
    p:=a+b+c;
    s:=(a*h)/2;
    Writeln('Chu vi tam giac = ',p);
    Writeln('Dien tich tam giac = ',s:2:1);
    Readln;
End.