Составить программку, которая обретает малое естественное число х, такое, что остаток

program zz1;
var x:integer; // задаем переменную целого типа
begin
x:=1; // задаем изначальное значение искомого числа
while xlt;= 1000000 do // организуем цикл до достаточно большого числа
begin
if (x mod 10 = 9) and (x mod 9 = 8) and (x mod 8 = 7) and (x mod 7 = 6) and (x mod 6 = 5) and (x mod 5 = 4) and (x mod 4 = 3) and (x mod 3 = 2) and
(x mod 2 = 1) then break; // проверяем условие поиска, если это условие окажется верным, это значит, что разыскиваемое число найдено, и выходим аварийно из цикла
x:=x + 1; //берем последующее число
end;
write(x); //выводим ответ
end.