ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
Даны натуральное число n и вещественные числа a1, a2, ..., an. Определить среднее арифметическое вещественных чисел...

ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА

var
  n,i:integer;
  s,a:real;
begin
  writeln('Vvedite n:');
  readln(n);
  writeln('Vvedite chisla:');
  s:=0;
  for i:=1 to n do
  begin
  readln(a);
  s:=s+a;
  end;
  writeln('Srednee arifmeticheskoe =',s/n);
  readln();  
end.