Напишите программу найти площадь равнобедренного треугольника.

program zz1;

var a, b, S:real; / / задаем переменные не целого типа

begin

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

read (a);

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

read (b);

s:=b/2 * sqrt ((a + b/2) * (a - b/2)); / / находим площадь равнобедренного треугольника по формуле

writeln (' площадь равнобедренного треугольника = ', s:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

end.