Стёпа и Андрей лучшие друзья, поэтому им хочется праздновать день рождения вместе. Если Стёпа и Андрей родились в один день одного месяца, то напечатайте на экран сообщение "Вечеринка удалась!".

Если друзья родились в один месяц (но в разные дни), то напечатайте на экран сообщение "Отпразднуем вместе в конце месяца!".

Если друзья родились в рядом стоящие месяцы (например, март и апрель), то напечатайте на экран сообщение "Вечеринка откладывается".

Если дни рождения не в один год, не в соседние месяцы и не в соседние дни, то напечатайте на экран сообщение "Вечеринки не будет".

С клавиатуры вводится две тройки целых чисел: день, месяц и год.

Формат входных данных

Две тройки целых чисел, каждое с новой строчки: 1 ≤ день ≤ 31, 1 ≤ месяц ≤ 12, 0 ≤ год ≤ 9999

Это даты рождения Стёпы и Андрея.

Формат выходных данных
фраза-ответ

1. "Школьное" решение

// PascalABC.Net 3.0, сборка 1066
var
  s,s1:string;
  i:integer;
  a:char;
begin
  Write('Введите натуральное число любой длины :'); Readln(s);
  Write('Введите цифру, которую надо удалить: '); Readln(a);
  s1:='';
  for i:=1 to Length(s) do
    if s[i]<>a then s1:=s1+s[i];
  Writeln('Результат: ',s1)
end.

Тестовый прогон:
Введите натуральное число любой длины :3141592653589793
Введите цифру, которую надо удалить: 5
Результат: 3141926389793

2. Современное решение (так в школе почему-то не учат)

// PascalABC.Net 3.0, сборка 1066
begin
  var s:=ReadString('Введите натуральное число любой длины :');
  var a:=ReadChar('Введите цифру, которую надо удалить: ');
  Write('Результат: ',s.Replace(a,''));
end.

Проще всего складывать в столбик как обычные десятичные числа, но если в сумме число получится больше 8 (система восмиричная), то мы отнимаем 8, смотрим: меньше ли получившийся остаток 8, если нет, то снова отнимаем восемь и тогда записываем остаток, а в "ум" запишем число отнятых восьмерок

574+467=1263 (все числа в восьмиричной системе счисления)

так, складывая 4 и 7, получаем 11, что больше 8, поэтому отняв 8, получим цифру 3, которую и записываем как последнюю цифру числа (3 пишем, 1 в уме), далее складываем 6 и 7 и не забываем про 1, потому что в раз мы отняли всего одну восьмерку, получаем 14, но записываем только 6, а 1 в уме, затем 5, 4 и 1 - 2 пишем, 1  в уме, далее просто приписываем единицу, получаем 1263

P.S. несмотря на то, что кажется сложно, это немногим отличается от десятичной системы сложения в столбик