Известен год и номер месяца пождения человека.Составить алгоритм и программу для определения возраста человека(число лет и месяцев на сегодняшний момент) Pascal

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

{code}

program AgeCalculator;

var
currentYear, birthYear, birthMonth, ageYears, ageMonths: Integer;

begin
// Вводим текущий год
writeln('Введите текущий год:');
readln(currentYear);

// Вводим год и номер месяца рождения
writeln('Введите год рождения:');
readln(birthYear);
writeln('Введите номер месяца рождения:');
readln(birthMonth);

// Вычисляем возраст
ageYears := currentYear - birthYear;
ageMonths := (currentYear 12 + birthMonth) - (birthYear 12);

// Выводим результат
writeln('Возраст: ', ageYears, ' лет и ', ageMonths mod 12, ' месяцев');

end.

{/code}

Этот код предлагает ввести текущий год, год и номер месяца рождения. Затем программа вычисляет возраст человека в годах и месяцах и выводит результат на экран.