Определить, через сколько лет мать будет старше дочери втрое - Turbo Pascal

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

Возраст матери и дочери вводится с клавиатуры.определить через сколько лет мать будет старше дочери втрое.помогите пожалуйста

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

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

var i, mAge, dAge : integer;
    key           : boolean;
 
BEGIN
     Write('Возраст матери: ');
     ReadLn(mAge);
     Write('Возраст дочери: ');
     ReadLn(dAge);
     key:= false;
     i:= 0;
     While (key=false) do
     begin
          if ((mAge mod dAge = 0) and (mAge/dAge=3)) then key:= true;
          Inc(mAge);
          Inc(dAge);
          Inc(i);
     end;
     WriteLn(i-1);
END.

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

Объявляются переменные i, mAge, dAge и key типа integer.
Задаются начальные значения переменных mAge и dAge.
Чтение ввода о возрасте матери и дочери с помощью функции ReadLn.
Устанавливается значение переменной key в false.
Инициализируется переменная i значением 0.
Входим в цикл While, условием которого является false.
Внутри цикла проверяется условие ((mAge mod dAge = 0) and (mAge/dAge=3)). Если это условие выполняется, то переменная key устанавливается в true.
После проверки условия происходит инкремент переменных mAge, dAge и i.
Цикл продолжается до тех пор, пока значение переменной key остается false.
После выхода из цикла выводится значение переменной i-1. Ответ: Через 20 шагов значение переменной i будет равно 19.