можно с решение написаном на листе​

var k,m:integer;

begin

 k:=10;m:=15;

while k <= (m + 2) do begin

  if k > m then begin

  k:= m + k -1;

  m:= 2*m;

  end

  else

    k:= k +2;

  write(k:3);

end;

end.

Объяснение:

при выполнении 1 раз к = 12

var a,k:integer;

begin

 a:=6;k:=0;

 while a <= 6 do begin

   a:= a+1;

   k:=k +1;

   end;

   write(k:3, a:3);

 end.

при выполнении 1 раз к = 1