Помогите Написать программку на языке Паскаль для нахождения среднего значения из

var

   n : integer;

   a : integer;

   s : real;

begin

   write('введите количество чисел ');

   readln(n);

   for var i := 1 to n do begin

       write(i,'-е число одинаково = ');

       readln(a);

       s += a;

   end;

   writeln('среднее значение одинаково ', s/n);

end.

числа вводим вручную...