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.