По языку программирования pascal n школьников делят k яблок “поровну”, то есть так, чтобы количество яблок, доставшихся любым двум школьникам, отличалось бы не более, чем на 1. входные данные программа получает на вход числа n и k. выходные данные программа должна вывести количество школьников, которым достанется яблок меньше, чем некоторым из их товарищей.

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

Begin
var (n, k) := ReadInteger2('Введите n и k');
Writeln(k - (k div n) * n);
end.

Var f:file of integer;   
 a,i,k,n:integer;
begin
randomize;
assign(f,'file');
rewrite(f);
repeat
write('Четное количество элементов: ');
readln(n);
until(n>1) and (n mod 2=0);
for i:=1 to n do
 begin 
 a:=random(100); 
 write(f,a); 
end;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin 
 read(f,a); 
write(a,' ');
 end;
close(f);
writeln;
reset(f);
seek(f,filesize(f)div 2);
truncate(f);
writeln('Содержание измененного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a); 
 write(a,' '); 
end;
close(f);
readln
end.

1. нумеруешь все цифры двоичного числа справа налево начиная нумерацию с 0 
2. для всех позиций на которых стоят 1 вычисляешь соответствующую степень двойки (зависит от нумерации) 
3. складываешь все вычисленные степени двойки и получаешь искомое десятичное число. Например, 1101 это 8+4+1=13.
 из 10 в 2:
 1. делишь число на 2 и записываешь остатки от деления.
 Деление продолжаешь пока не получишь 0 
2. записываешь остатки от деления в обратном порядке их нахождения Например, для числа 25:
 25 | 1 
12 | 0
 6 | 0
 3 | 1 
1 | 1 
получаем в двоичной 11001 

может быть есть и другие но нас учили именно так