[Lucky192]

Код:

if IsLeapYear(2008) then ShowMessage('високосный') else ShowMessage('невисокосный');