Даны основание и вышина равнобедренного треугольника. вычислить площадь и длины боковых

program zz1;

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

begin

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

read(a);

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

read(h);

s:=0.5 * a * h; // обретаем площадь равнобедренного треугольника

d:= sqrt(sqr(0.5*a) + sqr(h)); // обретаем длины боковых сторон этого треугольника из аксиомы Пифагора

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

writeln( длины боковых сторон этого треугольника  = , d:5:2);

end.