Pascal ABC разветвлённо вычислительный процесс

[чебурекер]

реши пожалуйста нето мне завтра хана

[ROMA2PVT]

Uses
 CRT;
Var
 y,x:real;
 k:integer;
begin
ClrScr;
write('K:=');
readln(k);
write('X:=');
readln(x);
begin
 if (k=1)then y:=exp(-x)
 else
 if (k=3) then y:=ln(abs(x+5))
 else
 if (k=5) then y:=sin(sqr(x)+5)
 else if k mod 2=0 then y:=cos(x-(60*pi/180))
 else y:=sqr(x)+2*x+3;
end;
writeln('y:=',y:1:4);
readkey
end.

[чебурекер]

СПАСИБО БОЛЬШОЕ