Выберите исполнителя. Укажите его тип, круг решаемых задач, среду, систему команд(3 команды), систему отказов и режим работы

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

begin
  var a:=ReadReal('Введите зарплату в первый месяц->');
  var z:=0.00;
  for var i:=1 to 12 do
   begin
    Writeln('Доход за ',i,' месяц составил ',a:0:2,'р.');
    z+=a;
    a:=a+a*0.1;
   end;
  Writeln('Зарплата за год: ',z:0:2,'р.');  
end.

Пример:
Введите зарплату в первый месяц-> 100
Доход за 1 месяц составил 100.00 р.
Доход за 2 месяц составил 110.00 р.
Доход за 3 месяц составил 121.00 р.
Доход за 4 месяц составил 133.10 р.
Доход за 5 месяц составил 146.41 р.
Доход за 6 месяц составил 161.05 р.
Доход за 7 месяц составил 177.16 р.
Доход за 8 месяц составил 194.87 р.
Доход за 9 месяц составил 214.36 р.
Доход за 10 месяц составил 235.79 р.
Доход за 11 месяц составил 259.37 р.
Доход за 12 месяц составил 285.31 р.
Зарплата за год: 2138.43 р

P.S Сделал как понял.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Числа\";

ПЕР
  массив: РЯД 10, 10 ИЗ ЦЕЛ;
  сч1, сч2, макс_гл, разн, мин, макс: ЦЕЛ;

УКАЗ
  ОТ сч1 := 0 ДО 9 ВЫП
    ОТ сч2 := 0 ДО 9 ВЫП
      массив[сч1, сч2] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1;
      ЕСЛИ сч1 = 0 И сч2 = 0 ТО
        мин := массив[0, 0]; макс := мин; макс_гл := макс
      ИНАЧЕ
        ЕСЛИ массив[сч1, сч2] < мин ТО мин := массив[сч1, сч2]
        АЕСЛИ массив[сч1, сч2] > макс ТО макс := массив[сч1, сч2] КОН;
        ЕСЛИ сч1 = сч2 И массив[сч1, сч2] > макс_гл ТО макс_гл := массив[сч1, сч2] КОН
      КОН
    КОН
  КОН;
  разн := макс - мин

КОН Задание.