памагите не могу верно решить задачу о паскалю

[Luсifer]

Дано n чисел найти среднее значение всех чисел

Вот код где ошибки?
program pidir;
var N, R, B, i:integer;
sum, A:real;
begin
write ('сколько чисел');
read(N);
write ('задай число');
read(R);

for i := 2 to N do
begin
write ('задай число');
read (R);
sum := R+B;
A := sum/n;
end;
write(A);
end.


Чем эта тема не устроила?
http://www.programmersforum.ru/showthread.php?t=313046

[type_Oleg]

Вот это

A := sum/n;

вынести из цикла. Зачем много раз делить сумму. Достаточно 1 раз.
И зачем вам переменная B ?

[Luсifer]

А как тогда сложить все значения?