Написать программу, которая вводит с экрана N чисел, считает их среднее арифметическое и выводит его на экран

спасибо

как я сделал ввод чисел - правильно?

я ещё не проверяла

ну в паскале всё хорошо, только приходиться от руки вводить столько чисел, сколько тебе нужно

да я поняла я разберусь

program z1;beginvar a,d,n,i:integer;var s:real;write('Сколько всего чисел будет');read (n);writeln('Вводите числа');for i:=1 to n dobeginread(d);a:=a+d;end;s:=a/n;write ('Среднее арифметическое=',s);end.Пытался сделать ввод чисел как-то через массив или автозаполнением, но тогда надо кол-во чисел, а тут n.