FreePascal.ru

Исправьте 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 ...