Написать функцию

[Rageded]

Написать функцию для вычисления tg(x) и вычислить выражения:4ctg(x)+tg^2(x).

[newerow1989]

function tg(x:real):real;
begin
   Result:=sin(x)/cos(x);
end;

var x,y:real;
begin
   Write('x = '); Readln(x);
   y:=4/tg(x)+tg(x)*tg(x);
   Writeln(y:5:5);
   Readln;
end.

Сойдет?