Паскаль, даны натуральное число 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.