Помогите очень надо! Составить программу, которая определяет возраст человека по…

Var a: integer; begin read (a); a: =a div 365; if (a div 10) mod 10=1) then write (a, ' лет') else if (a mod 10=1) then write (a, ' год') else if (a mod 10 < 6) and (a mod 10 > 1) then write (a, ' года') else write (a, ' лет'); end.