Cоставьте линейный алгоритм и блок схему вычисления площади периметра прямоугольного треугольника по двум его сторонам.

program Begin12; var a, b, c, p,s: real; begin   write('Введите два катета прямоугольного треугольника: ');   read(a, b);    c := sqrt(sqr(a) + sqr(b));   p := (a + b + c) /2; s := sqrt(p * (p - a) * (p - b) * (p - c));    writeln('Площадь -- ', s:5:2);   writeln('Гипотенуза -- ', c:5:2); end.