Помогите решить задачу. Паскаль.

Question

Помимо составления последовательностей, летом Вася очень любил смотреть в окно. Напротив его дома расположился офис некоторой строительной фирмы. В течение всего месяца Вася наблюдал за его служащими. Про каждый из 31 дня месяца он знает, сколько сотрудников пришло на работу. Ему также известно, что каждый из служащих берет ровно по 4 выходных в месяц. 
Теперь он ломает голову над загадкой – сколько всего сотрудников работает в этом офисе. Напишите программу, которая ответит Васе на этот вопрос. 
Формат входных данных 
Вводится 31 целое неотрицательное число. Эти числа описывают количество работников, пришедших в офис в соответствующие дни месяца. Гарантируется, что входные данные корректны. 
Формат выходных данных 
Выведите единственное число – общее количество работников офиса. Гарантируется, что ответ не превышает 100.

Наталья Ведищева · Accepted Answer

Просуммировать все появления служащих и разделить на 27. Третий класс школы. 
 
var i,a,s:integer; 
begin 
s:=0; for i:=1 to 31 do begin write('Day',i:3,': '); readln(a); s:=s+a end; writeln(s div 27); readln 
end.