var m,k:integer;

   n:real;

begin

writeln('Введите n и m через пробел:');

read(n,m);

k:=0;

writeln('Шаг ',k,', n=',n,', m=',m);  

while m >= 6 do begin

m:=m-2;

n:=n*2;

k:=k+1;

writeln('Шаг ',k,', n=',n,', m=',m);

end;

writeln('n=',n,', m=',m);

end.

Результат:

Введите n и m через пробел:

1 10

Шаг 0, n=1, m=10

Шаг 1, n=2, m=8

Шаг 2, n=4, m=6

Шаг 3, n=8, m=4

n=8, m=4