program WhileLoop;

var
x, y: integer;

begin
x := -5;

while x <= 5 do
begin
y := x + 4;
writeln('x = ', x, ', y = ', y);
x := x + 2;
end;
end.