Найти число , обладающее следующим свойством : если в нем зачеркнуть последнюю цифру , то получится число в 14 раз меньше исходного.Прошу напишите через цикл While.

begin

 var num:=1;

 while true do

 begin

   if (num div 10 * 14 = num) then break;

   num += 1;

 end;

 writeln(num);

end.