Делёж яблок – 2n школьников делят k яблок "почти поровну", то есть так, чтобы количество яблок, доставшихся любым двум школьникам, отличалось бы не более, чем на 1.Программа получает на вход натуральное число пи целое неотрицательное число k, каждое в отдельной строке, и должна вывести количество школьников, которым-достанется яблок меньше, чем некоторым из их товарищей.Примеры:Ввод. вывод7. 530. 7. 028. ​

uses crt;
var i,j,k,n,m,t:integer;
mas: array[1..10,1..10]of integer;
begin
randomize;
readln(n);
readln(m);
writeln;
writeln('Bazovui massiv');
for i:=1 to m do
for j:=1 to n do
mas[i,j] :=random(100);
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
writeln;
for i:=1 to m do
for j:=1 to n do
for k:=1 to n-1 do
if mas[i,k]>mas[i,k+1] then Begin
t:=mas[i,k];
mas[i,k]:=mas[i,k+1];
mas[i,k+1]:=t;
End;
writeln;
writeln('Massiv posle obrabotki') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
end.

uses crt;
var i,j,k,n,m,t:integer;
mas: array[1..10,1..10]of integer;
begin
randomize;
readln(n);
readln(m);
writeln;
writeln('Bazovui massiv');
for i:=1 to m do
for j:=1 to n do
mas[i,j] :=random(100);
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
writeln;
for i:=1 to m do
for j:=1 to n do
for k:=1 to n-1 do
if mas[i,k]>mas[i,k+1] then Begin
t:=mas[i,k];
mas[i,k]:=mas[i,k+1];
mas[i,k+1]:=t;
End;
writeln;
writeln('Massiv posle obrabotki') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
end.

Program JuliaVanina;
uses crt;
var
  r,min,max: real;
  k:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  min:=0;
  max:=0;
  k:=0;
  r:=1;
  writeln('Введите ненулевое число, не превышающее 30000 по модулю');
  writeln('(или введите 0 для конца последовательности) ');
  while (r<>0) and (k<1000) do
    begin
      write('Ввод:');  
      readln (r);
      if abs(r)<30000 then
          begin
            if min>r then min:=r;
            if max<r then max:=r;
            k:=k+1;  
          end
        else
          begin
            writeln ('вы ввели слишком большое по модулю число');
            writeln ('Это число не будет учтено');
          end;
    end;
  writeln();
  writeln('Всего введено ',k-1,' чисел');
  writeln('Разность min и max составляет ',max-min);
end.

Проверено - работает на Паскаль АВС