The base and height of an isosceles triangle are given. calculate the area and length of the sides of this triangle. (pascal)

program zz1;

var a, d, S, h: real; // set variables of non-integer type

begin

write (‘enter the base of an isosceles triangle’);

read (a);

write (‘enter the height of the isosceles triangle’);

read (h);

s: = 0.5 * a * h; // find the area of an isosceles triangle

d: = sqrt (sqr (0.5 * a) + sqr (h)); // find the lengths of the sides of this triangle from the Pythagorean theorem

writeln (‘area of an isosceles triangle =’, s: 5: 2); // display the answer in the format of five characters for the whole number and two characters after the dot

writeln (‘the lengths of the sides of this triangle =’, d: 5: 2);

end.