Задумано некоторое число х (х<100). Известны числа k,m,n - остатки от деление этого числа на 3, 5, 7. Решите задачу через repeat until

var x,k,m,n:integer;beginreadln(k,m,n);x:=0;repeatx:=x+1;until (x mod 3 = k)and(x mod 5 = m)and(x mod 7 = n)and(x<100);if x<100 then writeln(x) else writeln('Ошибка ввода');end.Пример:0 3 648