Написать программу, которая будет определять возраст .

program voz;uses crt;var a,b,c,d,e,f : integer;beginWrite('Какая сейчас дата?(д м г)');Read(a,b,c);write('Введите дату вашего рождения (д м г)');read(d,e,f);if (b>=e) and (a>=d) then Writeln('Вам ',c-f,' лет') else writeln('Вам ',c-f-1,' лет');end.