program ideone;

var
  a, b:integer;
begin
a:=4; b:=6;
repeat
a:=a+b;
writeln('a = ', a, ' b = ', b);
until a>b;

end.