Question

Очень срочно! Осталось около 1 часа! помогите!
 Напишите программу поиска минимального числа, большего числа K, которое делится на D.

Входные данные:
два целых числа: первое число K, второе число D ( 0 < K,D ≤ 32000 ).

Выходные данные:
число являющееся ответом на условие задачи.

Answer 1

var k,d,i:integer;
begin
   readln(k); readln(d);
   i := 0;
   while (i*d<k) do i := i + 1;
   writeln(i*d); 
end.