Квадрат катета  равен разности квадрата гипотенузы и квадрата другого катета

program raf105;

var

 b,s,s2: array[1..10] of real;

 i: integer;

begin

 for i:=1 to 10 do

 begin

   b[i]:= random(11,20);

   s[i]:= random(2,10);

   s2[i]:= sqrt(power(b[i],2) - power(s[i],2));

   writeln('Треугольник №',i);

   writeln('Гипотенуза: ',b[i]);

   writeln('Катет 1: ',s[i]);

   writeln('Катет 2: ',s2[i]:0:1);

   writeln;

 end;

end.

PascalABC