uses crt;

var a,b,c,h,p,s:integer;

begin

clrscr;

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

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

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

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

p:=a+b+c;

s:=a*h;

       writeln ('Chu vi cua tam giac la: ',p);

        writeln ('Dien tich cua tam giac la: ',s);

readln;

end.

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.