Составить программу, которая запрашивает время суток, и выводит на экран соответствующее

Program greet;
var
h: integer;
begin
write('Час (0-23): ');
readln(h);
if (h >= 0) and (h <= 4) then
writeln('Доброй ночи');
if (h >= 5) and (h <= 11) then
writeln('Доброе утро');
if (h >= 12) and (h <= 16) then
writeln('Добрый день');
if (h >= 17) and (h <= 23) then
writeln('Добрый вечер');
end.

 вода и молоко не в бутылке

           бут  ст   кувш  бан

мол     0                               

лим                                         

квас                                    

вода    0                              

 сосуд с лимонадом стоит между кувшином и сосудом с квасом

              бут  ст   кувш  бан

мол     0                               

лим                        0                 

квас                       0            

вода    0                              

в банке не лимонад и не вода.

             бут  ст   кувш  бан

мол     0                               

лим                       0       0          

квас                       0            

вода    0                          0

Стакан стоит около банки и сосуда с молоком

         бут  ст   кувш  бан

мол    0    0                  0         

лим                    0       0          

квас                   0            

вода    0                      0

 

 

         бут  ст   кувш  бан

мол    0    0      1       0         

лим                    0       0          

квас                   0            

вода    0            0       0

 

           бут  ст   кувш  бан

мол     0    0      1       0         

лим                    0       0          

квас                   0        1    

вода    0    1      0       0

 =

          бут  ст   кувш  бан

мол     0    0      1       0         

лим     1    0      0       0          

квас     0    0      0        1    

вода    0    1      0       0

лим - бут  вода - стак  мол - кувш  квас  - банка 

 

 1 единица и непосредственно само это число                                                                                                        

2 Последовательность простых чисел: 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131...                                                                                                                                                                                                                                 3 две единицы или 2 и 0,5
4 и 0,25
3 и 1/3 и т.д.
т.е. все взаимообратные числа
также -1 -1