Помогите безотлагательно необходимо выстроить метод

(Я не уверин то что верно )

вводим числа, в цикле от 1 до N (где N количество чисел) , и после сумму разделяем на N  

program HelloWorld;  

var i,n,q: integer;  

begin  

writeln "Введите количество чисел" ;  

readln n;  

for i:= 1 to n do  

begin  

q:=q+n;  

end;  

writeln q/n;  

end.