Помогите составить программу в паскале!!Пожалуйста!
В квитанции есть пятизначное число. Отчётливо видны только две первые цифры - это 1 и 5; остальные три цифры стёрты. В среде программирования разработайте программу, которая найдёт это число, если известно, что оно кратно 57 и 67. (Подсказка: воспользуйтесь методом полного перебора.)

// методом перебора// Ответ: 15276const   m=57;        n=67;var     i,x:word;        q:boolean;begin  i:=99;  q:=true;  while (i<1000) and q do begin    i:=i+1;    x:=15000+i;    if (x mod m=0) and (x mod n=0) then       q:=false;  end;  writeln(x);end.