мой учитель информатики задал мне ,
изучить архиваторы, алгоритмы сжатия и сжать на 10%-30% вот этот файл любым способом какой мне прийдёт в голову. пока что ничего не получилось.
подскажите как мне его сжать а потом расжать ?

vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.

* 60 / 16 =

var

s,n,i: integer;

begin

write('введите количество чисел');

readln(n);

s: =0;

for i: =1 to n do

s: =s+i*3;

writeln(s);

end.