помогите пожалуйста программу поправить, надо что-то дописать или переделать, чтобы программа обходила значение 0
var y:array[1..5] of real;
x:integer;
begin;
x:=-3;
for x:=-3 to 3 do
begin
y[x]:=(cos(x)/sin(x))-x;
writeln('y[',x,']= ',y[x]:5:3);
end;
readln;
end.