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.