a:= -8;
repeat
  writeln(a);
  a:= -a/2
until Abs(a)<1/257;

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.