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

Паскаль:
var i, s : integer;
n: real;

begin
n := 0;
for i:= 1 to 50 do begin
readln(s);
n:= n + s;
end;
n:= n / 50;
end.