найти площадь равнобедренного треугольника по длине основания и высоте, проведённой к нему Pascal

program AreaOfIsoscelesTriangle;

var

 base, height, area: real;

begin

 // Ввод длины основания

 write('Введите длину основания треугольника: ');

 readln(base);

 // Ввод высоты треугольника

 write('Введите высоту треугольника, проведенную к основанию: ');

 readln(height);

 // Вычисление площади треугольника

 area := 0.5 * base * height;

 // Вывод результата

 writeln('Площадь треугольника: ', area);

 // Ожидание ввода перед закрытием консоли

 readln;

end.