связь с календарём

[Косtян]

Привет! Я для удобства решил сделать прогу на паскале, которая будет напоминать про дни рождения моих предеов. У меня есть версия: Надо сдеать ветку- если сегодня день(**.**.****), то день рождения моей мамы, если день(**.**.****), то днюха моего папки. Но как точно это написаьб на паскале, я пока не знаю. Помогите, плизз!!!

[Serge_Bliznykov]

прежде всего, а почему Вы не хотите делать программу на Delphi ??? DOS умер, детка, DOS умер... ;-(

ну, раз надо.. :-)

uses Dos;
...
var
  Day,Month,Year,DayOf : word;
...
 {получить сегодняшнюю дату в Pascal}
 GetDate(Year,Month,Day,DayOf);

ну и дальше проверяйте. например, так:

 if Day=08 and Month=03 then WriteLn('Поздравить маму с 8-м Марта!');
 if Day=23 and Month=02 then WriteLn('Поздравить папу с Днём Защитника отечества!');

[Косtян]

Спасибо большое!!!