Написать

программу, которая спрашивает "Который час?" и, в зависимости от введенного

времени, выводит на экран приветствие: "Доброе утро", "Добрый день", "Добрый

вечер", "Спокойной ночи".

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.