(Я не уверин то что правильно )
вводим числа, в цикле от 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.