Исправление bormant, (текущая версия) :
Она же на Паскале:
program AgeOfSaahriktu;
uses SysUtils;
var y, m, d: Word;
begin
DecodeDate(Date, y, m, d);
WriteLn('The current age of Saahriktu is ',
y - 1984 - Ord((m < 4) or (m = 4) and (d < 2)), ' years.');
end.
Исходная версия bormant, :
Она же на Паскале:
program AgeOfSaahriktu;
uses SysUtils;
var y, m, d: Word;
begin
DecodeDate(Date, y, m, d);
WriteLn('The current age of Saahriktu is ',
y - 1984 - Ord((m < 4) or (m = 4) and (d < 2)), ' years.');
end.