Очень срочно! Осталось около 1 часа! помогите! Напишите программу поиска минимального...

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   writeln(i*d); 
end.