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

Var x,k,m,n:integer;
begin
readln(k,m,n);
x:=0;
repeat
x:=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 6
48