Про погоду и массивы

Такая школьная простенькая задачка…
Условие:

Пусть в массиве из 12 компонент хранится количество осадков в каждом месяце. Требуется напечатать таблицу из трех столбцов, где для каждого месяца вывести его номер, количество осадков в нем,  отклонение количества осадков в этом месяце от средне годового.

Решение (Pascal.ABC):

program osadki;
const
  number_of_month = 12;
var
  a : array [1..number_of_month] of real;  
  i : integer; 
  avg, sum : real;
begin
  sum := 0;
  writeln('Введите данные по количеству осадков за каждый месяц');
  for i := 1 to number_of_month do 
  begin
    readln(a[i]);
    sum := sum + a[i];
  end;
  avg := sum / number_of_month;
  for i := 1 to number_of_month do 
    writeln(i, ' ',a[i], ' ', (avg-a[i]):2:2);
end.