Паскаль по значению функции помогите пожалуйста, награда 51 рубль на номер/киви

Function y(x:integer):real;
begin
case x of
 1,3,5,7: y:=sqr(x+cos(x));
 2,4,6,8: y:=sqrt(sin(x)/5);
 else y:=x+ln(x+2);
 end;
end;
var a,b,x,i:integer;
begin
 writeln('a, b:');
 readln(a,b);
 for i:=a to b do
  writeln(i:3,'  ',y(i):6:4);
end. 

Пример:
a, b:
0 10
  0 0.6931
  1 2.3725
  2 0.4264
  3 4.0401
  4    NaN
  5 27.9171
  6    NaN
  7 60.1230
  8 0.4448
  9 11.3979
 10 12.4849

PS. При x=4 и x=6 по условию выходит вычисление корня из отрицательного числа, поэтому итог - NaN (не число).