Program P72;
 { Afişarea formulelor de salut }
label 1, 2, 3;
var i : 6..23;
begin
   write('Cît e ora?'); readln(i);
   if i>12 then goto 1;
   writeln('Bună dimineaţa!');
   goto 3;
 1:if i>17 then goto 2;
   writeln('Bună ziua');
   goto 3;
 2:writeln('Bună seara!');
 3:readln;
end.