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.