program WhileLoop;
varx, y: integer;
beginx := -5;
while x <= 5 dobeginy := x + 4;writeln('x = ', x, ', y = ', y);x := x + 2;end;end.
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.