Я не спец по паскалю но вот на с++ ,думаю всё понятно будет
#include <bits/stdc++.h> using namespace std;
int main() { vector <int> s; int i,sred,cis,sum=0; while(cin>>cis){ s.push_back(cis); } for(i=0;i<s.size();i++){ sum+=s[i]; } sred=sum/s.size(); cout<<sred<<endl; return 0; } Что мы делаем ,сейчас скажу.Сначала мы через while добавляем элементы в массив vector , затем находим сумму элементов массива . И чтобы найти ихнее среднее арифметическую мы делим сумму на количество элементов массива.
двух слов по 2 байта