среднее арифметическое (паскаль)

[ronny137]

вычислить среднее арифметическое введенных чисел,кол-во введенных чисел.При вводе числа 777 закончить работу.
среднее арифметическое посчитать смогу, чтот туплю с вводом чисел, каким образом их вводить?

[GetMax]

каким образом их вводить?

Примерно так:

While Chislo <> 777 do
Begin
   Write('Введите число: ');
   Readln(Chislo)
End;