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

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

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

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