Напечатать минимальное число, большее n, которое нацело делится на k, где n и k, вводятся с клавиатуры.

Var
  n, k: integer;
begin
  Write('Введите числа N и K: '); Readln(n,k);
  Writeln('Найденное число равно ',((n div k)+1)*k)
end.

Тестовое решение:
Введите числа N и K: 297 19
Найденное число равно 304