Количество первоклассников на 1 сентября 1986 года было 870 тыс. чел. Ежегодно количество увеличивалось на 10%. Начиная с 1990 года процент прироста упал на 5%, а с 1995 года еще на 3%. Какое количество первоклассников ожидается к 2005 году? результат выделить красным шрифтом. Построить график зависимости количества первоклассников от года.​

//PascalABC.NET 3.1 сборка 1239
const
    n = 10;
    m = 10;

var
    i, j: integer;
    a, b: array[1..n, 1..m] of integer;
    f: boolean;

begin
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            a[i, j] := random(50);
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
    writeln;
    
    for i := 1 to n do
    begin
        f := false;
        for j := 1 to m do
        begin
            if not f and (a[i, j] mod 2 = 1) then begin
                a[i, j] := 2 * a[i, j];
                f := true;
            end;
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
end.

Программа:

program test;

(c) NaaMan}

var b, n, s1, s2 : integer;

   p : Int64;

begin

 {Формируем массив А из 17 элементов от 58 до 98}

 var a := ArrRandomInteger(17, 58, 98);

 {Спрашиваем у пользователя число В}

 write( 'Введите число В: ');

 readln( b);

 {n - счетчик для подсчета элементов, больших В}

 {Обнуляем счетчик}

 n := 0;

 {Просматриваем каждый элемент в массиве а}

 ForEach var x in a do

   {Если он больше, чем В, по увеличиваем счетчик на 1}

   if x > b then n := n + 1;

 {Для вычисления произведения используем переменную Р}

 p := 1;

 

 {Выберем 5 первых элементов массива, от 0-го до 4-го}

 for var x :=0 to 4 do

   

   {Перемножаем}

   p := p * a[x];

   

 {Для вычисления суммы четных эл-в используем переменную S1}

 s1 := 0;

 

 {Переберем все элементы в массиве}

 foreach var x in a do

   

   {Если элемент чётный, т.е. делится на 2 без остатка,

   то прибавляем его к S1}

   if x mod 2 = 0 then

     s1 := s1 + x;

   

 {Для вычисления суммы эл-в, стоящих на нечетных местах,

 используем переменную S2}

 s2 := 0;

 

 {Просмотрим индексы массива по порядку, 17 штук, от 0 до 16}

 for var x := 0 to 16 do

   

   {Если индекс нечетный, т.е. делится на 2 с остатком,

   то складываем содержимое массива по этому индексу

   с S2}

   if x mod 2 = 1 then

     s2 := s2 + a[x];

   

 {А теперь всё это безобразие выводим на экран}

 

 {Содержимое массива А}

 writeln(a);

 

 writeln( 'Количество элементов массива, больших чем ',b, ' - ', n, ' штук');

 writeln( 'Произведение первых пяти элементов р = ', p);

 writeln( 'Сумма всех чётных эл-в массива s1 = ', s1);

 writeln( 'Сумма эл-в, стоящих на нечетных местах s2 = ', s2);

end.

Результат выполнения программы: