Вывод юбилейных дат

[student21]

Здравствуйте я бы хотел узнать можно ли в лазарусе создать проект который выводит юбилейные даты часы и секунды т.е. человек вводит свою дату и год рождения а приложение считает я разработал программу в поскале но выдает только даты как это сделать в лазарусе?
Код паскаля

Код: Выделить всё

program data;
function IsLeapYear(y: Integer): Boolean;
begin
  IsLeapYear:=(y mod 4 = 0) and ((y mod 100 <> 0) or (y mod 400 = 0));
end;
var
  d, m, y, i: Integer;
begin
  Write('Введите день, месяц и год рождения: '); ReadLn(d,m,y);
  if y<100 then if y<40 then Inc(y,2000) else Inc(y,1900);
  for i:=1 to 21 do
    if (d=29) and (m=2) and IsLeapYear(y+i*5)
    then WriteLn(i*5:3,' лет - 1.3.',y+i*5)
    else WriteLn(i*5:3,' лет - ',d,'.',m,'.',y+i*5);
end.

Заранее спасибо)

[скалогрыз]

эта программа работает в лазарусе.

[student21]

Нет мне нужно само приложение чтобы были 4 формы 1 ввод года рождения 2 ввод месяца рождения 3 ввод даты рождения 4 результат