Скорее всего так
1а
2д
3в
4б
5б
6б
7-
8а
9 наверное 2. не точные варианты ответов
10б
11 3
12 4
13 2
14 1
15 1
16 4
//PascalABC.Net 3.2
begin
var time:=readinteger('Введите время суток: ');
if time in [0..5] then write ('Ночь')
else if time in [6..11] then write ('Утро')
else if time in [12..18] then write ('День')
else write ('Вечер');
end.
Работа на компьютере надо сначала Учителя не поднимать кресло