Перенос из одного языка программирования в другой

program Project1;
 
{$APPTYPE CONSOLE}
{$R *.res}
 
uses
  System.SysUtils;
 
 
{
  В данном случае:
  Процедура Write - выводит информацию на экран
  Процедура WriteLn - выводит информацию на экран и переходит на след. строку
  Процедура Read - ожидает ввода данных с клавиатуры
  Процедура ReadLn - ожидает ввода данных с клавиатуры и переходит на след. строку
 
  Write(a:x:y) или WriteLn(a:x:y);
  a - переменная вещественного типа
  x - длина числа в символах,
  y - количество знаков после запятой.
}
var
  // Инициализируем переменную вещественного типа
  i, n: integer; // переменные целого типа
  s: real; // переменная вещественного типа
  x: array[1..100] of real; // Одномерный массив, размер
begin
  try
    // Выводим запрос на ввод размерности массива
    Write('n = ');
 
    // Получаем число и записываем его в переменную
    ReadLn(n);
 
    // Присваиваем начальное значение
    s := 0;
 
    // Выполняем цикл по заполнению массива
    for i := 1 to n do
    Begin
      // Выводим запрос на ввод числа
      Write('x(', i, ') = ');
 
      // Получаем введённое число
      Readln(x[i]);
 
      // Считаем сумму значений
      s := s + x[i];
 
      // Сохряняем [сумму делённую на номер элемента(кол-во элементов)] в элементе [I]
      x[i] := s / i;
    end;
 
    Writeln;
 
    // Выводим массив на экран
    for i := 1 to n do
    begin
      WriteLn('|', x[i]:5:2, '|');
    end;
 
    // Ставим приложение в ожидание, чтобы окно не исчезло после выполнения
    ReadLn;
  except
    on E: Exception do
      // Выводим ошибку если что-то пошло не так
      Writeln(E.ClassName, ': ', E.Message);
  end;
 
end.