Сделать программу в Паскале АБС по следующей задаче.
Найти стороны прямоугольного треугольника, если катит больше другого в 2 раза.

var  a,b,c:real;begin  Write('Введите длину меньшего катета -> '); Readln(a);  b:=2*a; c:=sqrt(a*a+b*b);  Writeln('Длина большего катета ',b,', длина гипотенузы ',c)end.Тестовое решение:Введите длину меньшего катета -> 15.63Длина большего катета 31.26, длина гипотенузы 34.9497424883217