1.складіть програму, яка запитує користувача, котра година, і виводить на екран відповідне побажання — «доброго ранку! », «доброго дня! », «доброго вечора! » або «доброї ночі! ».

var

hour: integer;

begin

  write('який зараз година?   '); readln(hour);

  case hour of

      6..11: writeln('доброго ранку');

      12..15: writeln('доброго дня');

      16..21: writeln('добрий вечір');

      22..24, 0..5: writeln('доброї ночі');

  else

      writeln('в добі тільки 24 години');

  end;

end.

в древней индии, до изобретения китайцами бумаги, которую потом экспортировали в индию, писали либо на камнях, либо на пальмовых листьях сажей или другими красителями, разведенными на козьем молоке (казеин).

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.