Даны длины двух катетов a и b прямоугольного треугольника. Определить периметр этого треугольника P.

P=a+b+c    a, b  - катеты   c - гипотенуза с²=а²+b²  - теорема Пифагора P = a + b + √(a² + b²)

program Trapez;  uses Crt;  var a, b, alfa: real;      h, S: real; begin  ClrScr;                      {}  repeat    Write (' alfa (w grad) = '); ReadLn(alfa);    Write (' a = ');    ReadLn(a);    Write (' b = ');    ReadLn(b);  until (a>b) and (alfa<>90) ;  alfa:=alfa*pi/180;  h:=(a-b)/2*sin(alfa)/cos(alfa);  S:=(a+b)*h/2;  WriteLn(' S = ', S:6:2);  ReadLn; end.