Составить программу вычисления площади равнобедренного треугольника. s=1/2 hl, 1-основание h-высота.

var h,l,a:real;

begin

writeln('введите высоту и основание треугольника в см');

read(h,l);

a:=h*l/2;

writeln(a);

end.

текст можешь сам изменить

uses crt;

var s, h: integer;

BEGIN

ClrScr;

readln(h, l);

s:= 1/2*(h*l);

writeln(s);

readln;

END.