Радіус першої кулі дорівнює 2 см, а радіус кожної наступної збільшується на 0.5 см. Розробіть код для визначення бокових поверхонь перших шести куль.​

FAR Manager — консольный файловый менеджер для операционных систем семейства Microsoft Windows.

Автор программы — Евгений Рошал. С 18 июня 2000 года разработкой FAR Manager занимается группа FAR Group. Начиная с версии 2.0 программа распространяется под модифицированной лицензией BSD. Предыдущие версии имели собственническую лицензию, по которой коммерческое использование программы являлось платным.

Программа FAR Manager наследует двухоконную идеологию, стандартную расцветку и систему команд (управление с клавиатуры) у известного файлового менеджера Norton Commander.

Norton Commander (сокращенно называемый на советском пространстве NC, сленг рус. Нортон ) — популярный файловый менеджер для DOS, первоначально разработанный американским программистом Джоном Соухэ. (Некоторые дополнительные компоненты были полностью или частично написаны другими людьми: Linda Dudinyak — Commander Mail, вьюверы; Peter Bradeen — Commander Mail; Keith Ermel, Brian Yoder — вьюверы.) Программа была выпущена компанией Peter Norton Computing (глава — Питер Нортон ), которая позже была приобретена корпорацией Symantec.

В течение нескольких лет Norton Commander конкурировал по степени популярности с файловыми менеджерами PCTools и XTree, однако уже с третьей версии Norton Commander вытеснил с персональных компьютеров эти программы.

Разработка велась с 1984 года (первоначально под названием VDOS). Первая версия была выпущена в 1986 году.

Во вложении приведена блок-схема алгоритма. В ней считается, что массив х(10) уже имеется, поскольку в условии задания не сказано, как именно этот массив формируется.

const
  n=10;
var
  x:array[1..n] of integer;
  i,k:integer;
begin
  { подготовка исходного массива }
  Randomize;
  Writeln('Исходный массив');
  for i:=1 to n do
    begin
    x[i]:=Random(200)-100;
    Write(x[i],' ')
    end;
  Writeln;
  { непосредственно алгоритм }
  k:=0;
  i:=1;
  while (i<=n) and (k=0) do
    if x[i]<0 then for k:=i to n-1 do x[k]:=x[k+1]
    else Inc(i);
  for i:=1 to n-1 do Write(x[i],' ')
end.
     
Контрольное решение

Исходный массив
93 59 61 -76 30 -79 52 -76 91 -82
93 59 61 30 -79 52 -76 91 -82