Question

Помогите составить программу на языке паскаль!!!

Answer 1

var

 k,n,i:integer;

begin

 readln(k,n);

 i:=n mod k;

 if i<=k div 2 then writeln(i)

   else writeln(abs(i-k));

end.