Составить программу на языке Паскаль для решения следующей задачи: Дан одномерный массив. В массиве хранятся оценки по информатике учеников 9 класса. Заполнить массив случайными числами, лежащими в диапазоне от 2 до 5 включительно. Вычислите среднюю оценку в классе по информатике. Входные данные для размерности массива задайте самостоятельно. На проверку нужно прислать текст кода программы, результат работы кода в виде скриншота окна программы с отображением кода и полученного результата.

Язык программирования: Паскаль

program AverageGrade;

const
  SIZE = 20;
  MIN_GRADE = 2;
  MAX_GRADE = 5;

var
  grades: array[1..SIZE] of Integer;
  i, sum: Integer;
  average: Real;

begin
  sum := 0;

  // Заполнение массива случайными оценками
  Randomize;
  for i := 1 to SIZE do
  begin
    grades[i] := Random(MAX_GRADE - MIN_GRADE + 1) + MIN_GRADE;
    sum := sum + grades[i];
  end;

  // Вычисление средней оценки
  average := sum / SIZE;

  // Вывод результата
  writeln('Массив с оценками:');
  for i := 1 to SIZE do
    write(grades[i], ' ');

  writeln;
  writeln('Средняя оценка в классе по информатике: ', average:0:2);
end.

Отправьте результат работы кода в виде скриншота окна программы.