Напишите письмо другу о том как прочитать данные из файла

Программа на языке Паскаль.

const N=30;
var i, s0, k, a: integer;
      b: array [1..N] of integer;
begin
      readln(a);
      s0:=0;
      k:=0;
      randomize;
      for i:=1 to N do
      begin b[i]:=random(20001)-10001; {чтобы диапазон случайных чисел был от -10000 до 10000}
                if (b[i]<0) then s0:=s0+b[i];
                if (b[i]>0) and (b[i]<=a) then inc(k);
      end;
      if (s0<>0) then writeln(s0, ' - сумма отрицательных чисел')
      else writeln('отрицательных чисел нет');
      if (k<>0) then writeln(k, ' - количество положительных чисел, не превосходящих числа А')
      else writeln('положительных чисел не превосходящих числа А, нет');
readln;
end.

ответ: да можно ,
Для каждого груза можешь привести 
Данный груз +   некая гиря     =  противовес 
1                     +     0                   = 1
2                     +     1                   = 3
3                     +     0                   = 3
4                     +     0                   = 3+1
5                     +     3+1               = 9
6                     +     3                   = 9
7                     +     3                   = 9+1
8                     +     1                   = 9 
9                     +     0                   = 9
10                   +     0                   = 9+1
11                   +     1                   = 9+3
12                   +     0                   = 9+3
13                   +     0                   = 9+3+1