Смарт карточка ( Опции

[Cheburashka]

Мальчик Вася каждый день ездит на метро. Утром он едет в школу, а вечером того же дня, обратно из школы, домой. Для того, чтобы немного сэкономить, он покупает электронную смарт-карту на X поездок. Когда он хочет зайти в метро, он прикладывает карту к турникету. Если на карте осталось ненулевое количество поездок, то турникет пропускает Васю и списывает с карты одну поездку. Если же на карте не осталось поездок, то турникет не пропускает Васю, и он (Вася) вынужден купить на этой же станции новую карту на X поездок и вновь пройти через турникет.

Вася заметил, что в связи с тем, что утром метро переполнено, покупать новую карту утром накладно по времени, и он может опоздать в школу. В связи с этим он хочет понять: будет ли такой день, что с утра, поехав в школу, окажется, что у него на карточке ноль поездок.

Вася больше никуда на метро не ездит и поэтому заходит в метро только на станции около дома и на станции около школы.

Входные данные
Во входном файле INPUT.TXT содержится ровно 2 строки. В первой содержится слово «School» или «Home» в зависимости от того, где первый раз Вася купил карточку на X поездок. Во второй строке содержится натуральное число X, 1 ≤ X ≤ 1000.

Выходные данные
В выходной файл OUTPUT.TXT следует вывести «Yes», если будет такой день, что утром у Васи на карточке окажется ноль поездок и «No» в противном случае.

Вот такая вот задачка)) Можете разъяснить как её решить?

[Cheburashka]

Amega в принципе да.
Lapp ну про форматный вывод данных я в принципе знаю, а вот как нужно точно проверять мне не понятно(((

Я проверял наверное глупым способом... и он не проходит потестам...

program N_22;
  var X:longint;
      S:string;
Begin
  assign (input,'input.txt');
  reset (input);
  assign (output,'output.txt');
  rewrite (output);
  Readln (S);
  Read (X);
  If S='Home' then If X mod 2=0 then write ('No')
                                else If X=1 then Write('Yes')
                                            else Write('No')
              else If X mod 2=0 then write ('No')
                                else If X=1 then Write('No')
                                            else Write('Yes')


End.

[Lapp]

как нужно точно проверять мне не понятно(((

Проверяй четность числа Х, предварительно увеличив его на 1, если во входном файле содержится School.

if S='School' then Inc(x);
if Odd(X) then Write('No') else Write('Yes');