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

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.