Составьте программу которая находит наименьшее 13 и превосходящее 3000

Question

Составьте программу которая находит наименьшее 13 и превосходящее 3000

Comments

Может так "наименьшее число кратное 13 и превосходящее 3000"

---

Язык хоть бы написали

Answer 1

Ответ: 3003

Var
  i : Integer;
Begin
  i:=3000;
  While i mod 13<>0 do Inc(i);
  Writeln(i);
end.