Решая задачу обыватель мог столкнуться с проблемой того,как вводить данные. Данные водятся потоком, поэтому мы не знаем какое количество чисел войдут на проверку, для этого нам нужно использовать следующую конструкцию:

var
r:real;
..
Begin
while not seekeof do
Begin
read(r);
..
End;
..
End.

while not seekeof do - пока не конце файла, то делай то то. пропуская пробелы и переходы на новую строчку. Но так как отсутствует файлы, то он ждёт конец потока вводимых с экрана данных.
Для решения просто вставляем эту конструкцию, дополняя кодом и всё.
http://acm.timus.ru/help.aspx?topic=pascal

Edited by author 28.11.2015 11:30