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

Program voz;

uses crt;

var a, b, c, d, e, f : integer;

begin

Write ('Какая сейчас дата? (д м г) ') ;

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.