Какое расстояние должна пробежать собака, чтобы догнать лисицу? - Pascal ABC

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

"Собака погналась за лисицей, которая была на расстоянии 30 м от нее. Прыжок собаки равен 2 м, а прыжок лисицы – 1 м. В то время как лисица делает 3 прыжка, собака делает 2 прыжка. Какое расстояние должна пробежать собака, чтобы догнать лисицу?" помогите составить программу в Pascal ABC, заранее спасибо!!!

Решение задачи: «Какое расстояние должна пробежать собака, чтобы догнать лисицу?»

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

var ss,sl:integer;
begin
sl:=30;
ss:=0;
while ss<sl do
 begin
  sl:=sl+3;
  ss:=ss+4;
 end;
write('Собака должна пробежать ',ss,' м')
end.

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

Создаются две переменные типа Integer: ss и sl.
Значение переменной sl инициализируется как 30.
Значение переменной ss инициализируется как 0.
Запускается цикл while, который выполняется до тех пор, пока значение переменной ss меньше значения переменной sl.
Внутри цикла значение переменной sl увеличивается на 3, а значение переменной ss увеличивается на 4.
По завершении цикла значение переменной ss записывается в выходной поток в виде строки, которая говорит о том, что собака должна пробежать определенное количество метров.