одномерный массив Опции

[Rikki_Irena]

помогите пожалуйста программу поправить, надо что-то дописать или переделать, чтобы программа обходила значение 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.