Даны длины двух катетов 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.