Составьте программу для вычисления катетов прямоугольного треугольника площадью 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.