Через сколько лет дед станет вдвое старше внука? - Pascal

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

Всем привет, не могли-бы вы помочь с задачкой? Деду M лет, а внуку N лет. Через сколько лет дед станет вдвое старше внука. И сколько при этом лет будет деду и внуку.

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

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

program GrandFC;
 
var
  N, M, a : integer;
begin
  writeln ('Введите возраст Деда и возраст Внука');
  readln(M, N);
  
  {составляем и решаем уравнение: M+a = 2(N+a)}
  a := M - 2*N;
  
  writeln('Дед станет вдвое старше внука через ', a, ' лет.');
  writeln('Деду будет ', M+a, ' лет.');
  writeln('Внуку будет ', N+a, ' лет.');
end.

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

Объявляются переменные:
- N - возраст внука
- M - возраст деда
- a - количество лет, через которое дед станет вдвое старше внука
Выводится сообщение Введите возраст Деда и возраст Внука
Программа считывает значения возрастов деда и внука, вводимые пользователем
Выполняется расчет:
- a присваивается значение выражения M - 2*N
- где, M - возраст деда, N - возраст внука
Выводится сообщение с ответами на задачу:
- Дед станет вдвое старше внука через a лет.
- Деду будет M+a лет.
- Внуку будет N+a лет.