В одной из кодировок каждый символ кодируется 1 байтом. Иван написал текст (в нём нет лишних пробелов): «Playstation, Xbox, Dreamcast, Nintendo, Dendy – это популярные игровые консоли».

Затем он вычеркнул из списка название одной из консолей. Заодно он вычеркнул ставшие лишними запятые и пробелы – два пробела не должны идти подряд. При этом размер нового предложения в данной кодировке оказался на 80 бит меньше, чем размер исходного предложения. Напишите в ответе вычеркнутое название игровой консоли.
Напишите ответ в строке:

файл в паскале должен иметь расширение конечно же а)

00-ff - стандартная кодировка оттенков серого

var hour: integer;

      minute: string;

begin

  writeln('введите время суток');

  read(hour,minute);

  if (hour> =6) and (hour< 12) then writeln('доброе утро');

  if (hour> =12) and (hour< 18) then writeln('доброго дня');

  if (hour> =18) and (hour< 00) then writeln ('доброго вечера');

  if (hour> =00) and (hour< 6) then writeln ('спокойной ночи');

end.

тут единственный недостаток: после ввода часов нужно нажать enter и минуты вводить на новой строке

var x: integer;

begin

  read(x);

  if x> 0 then x: =x+10

  else x: =x-10;

  writeln(x);

  read(x);

  if x> 0 then x: =x+5;

  writeln(x);

end.