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

Язык программирования: Pascal

program AverageGradeClass;

var
  grades: array of integer;
  sum, average: real;
  i: integer;

begin
  Randomize;
  
  SetLength(grades, 25);
  
  sum := 0;
  
  for i := 0 to Length(grades) - 1 do
  begin
    grades[i] := Random(4) + 2;
    sum := sum + grades[i];
  end;
  
  average := sum / Length(grades);
  
  writeln('Средняя оценка по информатике в классе: ', average:0:2);
end.

Для выполнения задания нужно проверить код, после чего прикрепить скриншот с результатом работы программы.