program gd;
function tg(x: real): real;
begin
tg := sin(x) / cos(x);
end;
function ctg(x: real): real;
begin
ctg := cos(x) / sin(x);
end;
var
Pi: real;
rez1, rez2: real;
begin
Pi := 3.1415926;
rez1 := (sin(5 * Pi)) / (6 * cos(5 * Pi)) / (7 * tg(5 * Pi)) /
(8 * (ctg((5 * Pi) / 9)));
rez2 := ((sin(4 * Pi)) / 7) * (cos((-4 * Pi) / 9)) * (ctg((-4 * Pi) / 11));
writeln('Rezult 1: ', rez1:2:12);
writeln('Rezult 2: ', rez2:2:12);
readln;
end.