Даны длины катетов прямоугольного треугольника. Вычислить длину гипотезу и площадь. Написать программу и блок-схему.

var a, b, c, s:real;

begin

writeln ('Введите длины катетов');

readln (a, b);

c:=sqrt (sqr (a) + sqr (b));

s: = (a*b) / 2;

writeln ('Длина гипотенузы = ', c);

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

end.