Программа Паскаль: которая ищет минимальное число, больше 21, которое делится на 7 и оканчивается на 1.

Предыдущий
вопрос Следующий
вопрос

program FindNumber;

var

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

begin

  number := 21;

  repeat

    number := number + 10;

  until number mod 7 = 0;

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

end.