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

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

  • 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.