program FindNumber;

var

  number: Integer; // текущее число

begin

  number := 21;

  repeat

    number := number + 10;

  until number mod 7 = 0;

  writeln('Искомое число ', number);

end.