Ответ:

var k, n, c, l, g, b: integer;

begin

readln(k);

readln(n);

c := n div k;

l := n - (k*c);

g := c + 1;

b := (k*g) - n;

if b = 1000 then exit;

end.

Объяснение: