INPUT: cạnh a, chiều cao tương ứng h

OUTPUT: diện tích tam giác S

code:

uses crt;

var a,b,s:real;

begin clrscr;

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

<thực hiện nhập cạnh>

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

<thực hiện nhập chiều cao>

s:=a*h/2;

<tính diện tích>

write('dien tich la:',s:8:2);

<in ra diện tích>

readln;

end.