Известны год и номер месяца рождения человека, а также год и номер месяца сегодняшнего дня (январь – 1 и т.д.). Определить возраст человека (число полных лет). В случае совпадения указанных месяцев считать, что прошел весь год. Паскаль.

Предыдущий
вопрос Следующий
вопрос

program AgeCalculator;

var
birthYear, birthMonth, currentYear, currentMonth, age: integer;

begin
writeln('Enter the year of birth: ');
readln(birthYear);

writeln('Enter the month of birth: ');
readln(birthMonth);

writeln('Enter the current year: ');
readln(currentYear);

writeln('Enter the current month: ');
readln(currentMonth);

age := currentYear - birthYear;

if (currentMonth < birthMonth) then
age := age - 1;

writeln('The person is ', age, ' years old.');
end.