program ValuesOfY;
varx, y: integer;
beginfor x := 1 to 10 dobeginy := x + 2;writeln('When x = ', x, ', y = ', y);end;end.
program ValuesOfY;
var
x, y: integer;
begin
for x := 1 to 10 do
begin
y := x + 2;
writeln('When x = ', x, ', y = ', y);
end;
end.