Enter from the keyboard the value of the area of a right-angled triangle. (Isosceles triangle).

Enter from the keyboard the value of the area of a right-angled triangle. (Isosceles triangle). Display the value of the legs, hypotenuse. Use procedure to get results “Output Variables”

program zz1;

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

begin

write (‘enter the area of a right triangle’); // enter the given area of the triangle

read (s);

a: = sqrt (2 * s); // find the leg of a right-angled triangle using the formula

c: = sqrt (a * a + a * a); // find the hypotenuse of a triangle by the Pythagorean theorem

writeln (‘Output variables:’);

writeln (‘legs of a right-angled triangle =’, a: 5: 2); // display answers

write (‘hypotenuse of right triangle =’, c: 5: 2);

end.