Написать
программу, которая спрашивает «Который час?» и, в зависимости от введенного
времени, выводит на экран приветствие: «Доброе утро», «Добрый день», «Добрый
вечер», «Спокойной ночи».

Program z1;
var a:real;
begin
writeln(Который час?);
read(a);
if (a>=6) and (a<12) then writeln(Доброе утро) else
begin
if (a>11) and (a<=16) then writeln(Добрый день) else
begin
if (a>16) and (a<=22) then writeln(Добрый вечер) else
begin
if (a>22) or (a<6) then writeln(Спойкойной ночи) end; end; end; 
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.