Сдвиги Pascal (ТРУДНАЯ ЗАДАЧА)

[Serge_Bliznykov]

сорри, по невнимательности решил не ту задачу. Двигал циферки не вправо, как надо по условию задачи, а влево...

вот исправленный вариант с движением циферок по кругу вправо:

var N, K, Max, Mask : word;

begin
  Readln(N);

  if N=0 then begin
    WriteLn('Максимальный аналог равен НУЛЮ!');
    Halt(1);
  end;

  K := N;
  Mask := 0;
  while K>0 do begin
    if Mask=0 then Mask :=1
    else Mask := Mask shl 1;
    K := K shr 1;
  end;

  K := N;
  Max := N;
  repeat
    if (K and 1) = 1 then K := (K shr 1) or Mask
    else K := K shr 1;
    if K>Max then Max := K;
  until K=N;

  WriteLn('Для ',N:1,' максимальный аналог = ',Max:1);


end.