пожалуйста помогите решить задачу по Turbo pascal

[Светлана123]

помогите пожалуйста , ато завтра экзамен...
Ввести x и вычислить:


(5(в степени x) - ctgx,если x<0
y= (1 ,если x=0
(2cos2x ,если x>0

[Greblin]

program p1;
var x, y: real;
begin
write('x=');
readln(x);
if x < 0 then
  y := exp(ln(5)*x)-cos(x)/sin(x)
else
  if x = 0 then
    y := 1
  else
    y := 2*cos(2*x);
writeln('y=',y:1:3);
end.