Составьте программу для вычисления катетов прямоугольного треугольника площадью S, у которого длина одного катета в два раза меньше длины другого

Pascal

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 var a, b, c, s:real; begin repeat write ('Введите длину гипотенузы c=') ; readln (c) ; write ('Введите длину катета a=') ; readln (a) ; write ('Введите длину площади s=') ; readln (s) ; if (c>b) and (c>0) and (b>0) then begin a:=sqrt (sqr (c) - sqr (b)) ; s: = (1/2) * b*c; write end.