Free Pascal
var
x,y:integer;
begin
x:= 10;
y:=2;
repeat
x:= x-2;
y:=y-2;
until x<=-2;
writeln(x, y);
end.
>>> -2 -10
