Разработать программу запрашивающую дату рождения пользователя и расчитывающий его возраст

uses system; var d1: DateTime; day,mounth,year:integer; begin d1 := DateTime.Now; Writeln('Today:',d1.Day, '.', d1.Month, '.', d1.Year); Writeln('Day:'); readln(day); Writeln('Mounth:'); readln(mounth); Writeln('Year:'); readln(year); d1:=d1.AddDays(-day); d1:=d1.AddMonths(-mounth); d1:=d1.AddYears(-year); writeln(d1.Day,'.',d1.Month,'.',d1.Year); end.