Исправьте EXITCODE пожалуйста.
var
k1:array[1..100] of longint;
n:integer;
k:byte;
k2:longint;
r1,r2:integer;
a:array[1..500] of longint;
s:longint;
s1:longint;
r:longint;
y:byte;
i1,j1:integer;
i,j:integer;
procedure solve ;
begin
for i:=1 to n do
inc(r,a[i]); {1}
r:=r div k;
for i:=1 to n do
begin
inc(k1[y],a[i]);
if k1[y]>=r then begin
k2:=k1[y]-a[i];
r1:=abs(r-k1[y]);
r2:=abs(r-k2);
if r1<=r2 then begin inc(y); dec(k); end else begin dec(k1[y],a[i]); inc(y); inc(k1[y],a[i]); dec(k); end;
if k=1 then begin
for j:=i to n do inc(k1[y],a[j]);
break;
end;
for i1:=1 to y-1 do
for j1:=i+1 to y do
begin
s1:=k1[i1]-k1[j1];
s1:=sqr(s1);
inc(s,s1);
end;
end;
end;
end;
procedure fpin;
var
f1:text;
begin
assign(f1,'input.txt');
reset(f1);
read(f1,n);
readln(f1,k);
for i:=1 to n do
read(f1,a[i]);
close(f1);
end;
procedure fpout;
var
f2:text;
begin
assign(f2,'output.txt');
rewrite(f2);
writeln(f2,s);
close(f2);
end;
begin
fpin;
solve;
fpout;
end.
Условие задачи(необязательно читать): Районы Байтландии
Байтландия – замечательная страна, обладающая живописной природой и
расположенная в центре континента. Основным источником дохода для населения страны
является транзит, так как через страну проходит автомагистраль международного
значения М0, вдоль которой расположены все N городов Байтландии.
До недавних времен в стране не существовало административно-территориального
деления, то есть отсутствовали районы, области и округа. Последние несколько десятков
лет численность байтландцев значительно выросла, поэтому управлять страной стало
сложно. Правительство страны в целях упрощения административного управления
приняло решение разделить Байтландию на K районов. Каждый район включает один или
более городов. Кроме этого, каждый город должен принадлежать одному из K районов.
Правительство Байтландии постановило, что деление на районы должно быть таким, что
каждому району отводится определенный отрезок автомагистрали, поэтому все города,
расположенные вдоль этого отрезка, принадлежат данному району. То есть, если город B
находится между городами А и С и города А и С принадлежат одному району, то и город
B принадлежит этому району.
Известно, что численность населения каждого из N городов Байтландии равна Ai,
поэтому для каждого из K районов несложно определить Sj - численность населения
соответствующего района, равную суммарной численности населения всех городов,
принадлежащих этому району. Правительству Байтландии важно, чтобы численность
населения одного района незначительно отличалась от численности населения другого
района. Для этого академия наук Байтландии разработала специальный показатель
административно-территориального деления S, равный сумме чисел (Si – Sj)2 для всех
таких пар (i, j) что 1 ≤ i < j ≤ K.
Рисунок №1. Описание первого примера. S = (110 – 90)2 + (110 - 105)2+ (90 – 105)2 = 650.
Ученым Байтландии удалось доказать, что чем меньше показатель административно-
территориального деления S, тем более близки между собой районы по численности
населения. Ваша задача – определить минимальный из возможных показателей
административно-территориального деления S, который может быть достигнут
разделением N городов Байтландии на K районов.
Входные данные
Первая строка входного файла содержит два целых числа, разделенных одним
пробелом, это числа N и K (1 ≤ N ≤ 500, 1 ≤ K ≤ 100, K ≤ N) соответственно.
Вторая строка входного файла содержит N целых чисел Ai (1 ≤ Ai ≤ 65536) –
численность населения i-го города. Числа разделены одиночными пробелами.
Выходные данные
Выходной файл должен содержать одно целое число – минимальный из возможных
показателей административно-территориального деления.
