uses crt;

var b, c, h : integer; s1, s2, s : real;

begin

clrscr;

write('nhap chieu dai va chieu rong hinh chu nhat :');readln(c, b);

write('nhap chieu cao tam giac :');readln(h);

s1 := 1/2 * c * h;

s1 := b * c;

s := s1 + s2;

writeln('dien tich :', s:3:1);

readln

end.

Uses crt;
Var
    b,c,h: integer;
Begin
    clrscr;
    writeln('Nhap do dai day của hinh tam giac can: '); readln(c);
    writeln('Nhap chieu cao của hinh tam giac can: '); readln(h);
    writeln('Nhap chieu dai của hinh chu nhat: ',c);
    writeln('Nhap chieu rong của hinh chu nhat: '); readln(b);
    writeln('Dien tich hinh do la: ',(1/2*c*h)+(b*c):0:1);
    readln;
End.