В одномерном массиве хранятся сведения о количестве осадков, выпавших за каждый день февраля. Определить среднедневное количество осадков в этом месяце — Pascal(Паскаль)

program osadki;
var s,i:integer;
n:real;
a:array[1..28] of integer;
begin
randomize;
for i:=1 to 28 do
a[i]:=random(30);
for i:=1 to 28 do
write(a[i]:4);
s:=0;
for i:=1 to 28 do
s:=s+a[i];
n:=s/28;
writeln('Среднее кол-во осадков=',n:2:2);
end.