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.