7.2 ровнобедр треуг

program Triangle;

var
    base, height, side, area, perimeter: real;

begin
    write('Введите основание и высоту: ');
    readln(base, height);

    side := sqrt(base * base / 4 + height * height);
    area := base * height / 2;
    perimeter := side * 2 + base;

    writeln('Площадь равнобедренного треугольника: ', area:0:2);
    writeln('Периметр равнобедренного треугольника: ', perimeter:0:2);
end.