Определить возраст человека - Turbo Pascal (29180)

Формулировка задачи:

Известны год и номер месяца рождения человека, а также год и номер месяца сегодняшнего дня. Определить возраст человека (число полных лет и число полных месяцев). При определении числа полных месяцев дни месяца не учитывать, а использовать разность между номерами месяцев. Например, если месяц рождения — февраль, а текущий (сегодняшний) месяц — май, то число полных месяцев равно трем независимо от дня рождения и сегодняшнего дня Нужно написать программу, помогите, пжлст!

Решение задачи: «Определить возраст человека»

Листинг программы

var g1,m1,g2,m2,v,g,m:integer;
begin
writeln('Введите год и месяц рождения');
readln(g1,m1);
writeln('Введите текущий год и месяц');
readln(g2,m2);
v:=g2*12+m2-g1*12-m1;
g:=v div 12;
m:=v mod 12;
write('Возраст ',g,' лет ',m,' мес.')
end.

Объяснение кода листинга программы

Создается переменная g1 типа integer и присваивается ей значение 0.
Создается переменная m1 типа integer и присваивается ей значение 0.
Создается переменная g2 типа integer и присваивается ей значение 0.
Создается переменная m2 типа integer и присваивается ей значение 0.
Создается переменная v типа integer и присваивается ей значение 0.
Выводится сообщение 'Введите год и месяц рождения'.
Считывается значение года и месяца рождения с помощью функции readln().
Создается переменная g и присваивается ей значение g1.
Создается переменная m и присваивается ей значение m1.
Вычисляется значение переменной v как разность между g2 и g1, умноженной на 12, и вычитанием из этого значения g1, умноженного на 12, и m1.
Вычисляется значение переменной g как целочисленное значение от деления v на 12.
Вычисляется значение переменной m как остаток от деления v на 12.
Выводится сообщение 'Возраст ' и значение переменной g, ' лет ' и значение переменной m, ' мес.'.
Программа завершается.