Задача в Паскале. Проверьте пожалуйста написание программы

Question

Помогите пожалуйста, подскажите, что где не так, сил уже нет.

Мальвина · Accepted Answer

условия по k не однотипные, не надо пользоваться case. 
 
if k=1 then y:=exp(-x) else 
if k=3 then if x<>-5 then y:= ln(abs(x+5)) else mist:=true else 
if k=5 then y:=sin(x*x+5) else 
if not ODD(k) then y:=cos(x-60*pi/180) else 
 y:=x*x+2*x+3; 
 
Формулы не проверял.

Алексей Тихонов · Answer

program Eval; 
var 
 x,y:real; 
 k:integer; 
begin 
 write('x= ');readln(x); 
 write('k= ');readln(k); 
 y:=x*x+2*x+3; 
 if k=1 then y:=exp(-x) 
 else 
 if k=3 then y:=ln(abs(x+5)) 
 else 
 if k=5 then y:=sin(x*x+5) 
 else 
 if not odd(k) then y:=cos(x-60*pi/180); 
 writeln('y=',y); 
 readln; 
end. 
Да, и с чего это у тебя х, у : boolean?