program Hello;
var a, b:integer;
begin
a:=4; b:=6;
repeat b:=a-b;
writeln('a = ',a,' b = ',b);
until a<b;
end.