i make a code but i have problems, how i cant test 'N' Numbers with 1 variable ?????? This is the code.... please help me..

program new1 (input,output);

var num , i , n:integer;

sum , avarage:real;

Begin

sum:=0;

writeln('How mutch numbers you want ? ');

readln;

while i < n do

Begin

writeln('Give you ' , n , ' number')

readln('num);

n:=n-1;

sum:=sum+num;

i:=i+1;

end;

avarage:=sum/2;

writeln('The avatage of your numbers is ', avarage:6:2);

readln;

end.