Дан массив из 50 целых чисел. Найти среднее арифметическое его элементов.

Если n надо вывести - writeln(n) в конце

Паскаль:var i, s : integer;n: real;beginn := 0;for i:= 1 to 50 do beginreadln(s);n:= n + s;end;n:= n / 50;end.