Turbo Pascalв прямоугольном треугольнике известны 2 катета, их значения вводятся с…

Var a, b, c: real; begin readln (a, b); c: =sqrt (sqr (a)+sqr (b); writeln ('sin a=', b / c); writeln ('cos a=', a / c); writeln ('tg a=', b / a); writeln ('ctg a=', a / b); writeln (); writeln ('sin b=', a / c); writeln ('cos b=', b / c); writeln ('tg b=', a / b); writeln ('ctg b=', b / a); end. Вот так) Удачи тебе)