var
N: integer;
begin
write('N = ');
readln(N);
writeln('Возраст: ', 2021 - N)
writeln('Сегодня: 02.12.2021')
writeln('Например мне через 10: ', 2031 - N)
end.
var
N: integer;
begin
write('N = ');
readln(N);
writeln('Возраст: ', 2021 - N)
writeln('Сегодня: 02.12.2021')
writeln('Например мне через 10: ', 2031 - N)
end.