Составить программу на Pascal по оператору выбора!

[passresx]

Условие такое:
Нужно составить программу которая по введенной дате выводит дату праздника!

[Stilet]

var d,m,y:byte;
begin
 write('День'); readln(d);
 write('Месяц'); readln(m);
 write('Год'); readln(y);

 case m of
  3: case d of 
       1:Write('Днюха! Праздник, даттебайо!');
      end;
 end;

readln;
end.

Идея ясна?

[passresx]

Сообщение от Stilet

var d,m,y:byte;
begin
 write('День'); readln(d);
 write('Месяц'); readln(m);
 write('Год'); readln(y);

 case m of
  3: case d of 
       1:Write('Днюха! Праздник, даттебайо!');
      end;
 end;

readln;
end.

Идея ясна?

Да! Спасибо теперь понял что у меня не получалось ! Держи весы!

[Stilet]

Хорошо )
Удачи.

[Poma][a]

Еще вариант..

DayInMonth : array [1..12] of Integer = (1, 32, ...); // (c) s-andriano
holiday : array [1..355] of string = ('новый год', 'продолжение нового года', 'продолжение нового года 2', ... );

WriteLn(holiday[DayInMonth[month]+day]);

[Stilet]

Еще вариант..

Жаль только что его отметает условие задачи:

Составить программу на Pascal по оператору выбора!

[Poma][a]

Жаль только что его отметает условие задачи:

Мда.. и снова и снова невнимательность мне вредит.. Спасибо..