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.

Вот так)) Фортуны тебе)