program while_na_repeat;
var a,b,i:integer;
begin
  i:=1;
  write('Zadej hodnotu promenne a: ');
  readln(a);
  write('Zadej hodnotu promenne b (mensi nez a): ');
  readln(b);
  if a > b then
    while (a mod b <> 0) and (a div b > 1) do
    begin
      i:=i+1;
      a:=a+i;
      b:=b-i;
      writeln(a);
      writeln(b);
    end
    else writeln('Hodnota v "b" neni vetsi jak v "a"');
  readln;
end.