Составить программу, которая находит минимальное натуральное число х, такое, что остаток от деления х на 10 равен 9, остаток от деления х на 9 равен 8, остаток от деления х на 8 равен 7, ... остаток от деления х на 2 равен 1. В ответе запишите найденное число без пробелов и знаков препинания.

program zz1;

var x:integer; / / задаем переменную целого типа

begin

x:=1; / / задаем начальное значение искомого числа

while x< = 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.