Var i,y:integer;
begin
i:=-5;
while i<=5 do begin y:=i+4; i:=i+2; writeln(y); end; {Если программе не нужно выводить значение y, то удали writeln(y);}
end.
