program Hello;
var a, b:integer;
begin
a:=4; b:=6;
while a>b do begin
a:=a+1;
writeln('a = ',a,' b = ',b);
end;
end.