Написать программу вычисления среднего балла за экзамен по математике массив от 1 до 30

program p1;uses crt;var a:array[1..30] of integer;sr,s:real;i:integer;begin for i:=1 to 30 do begin  read(a[i]);   s:=s+a[i];   end;   sr:=s/30;   write(sr);end.