Var i,n,s:integer;
a:array[1..1000] of integer;
begin
readln(n);
s:=0;
for i:=1 to n do read(a[i]);
for i:=1 to n do s:=s+a[i];
writeln(s);
end.<span>
</span>
Так как 1 символ = 1 бит, получается:
73 бит=9байт 1 бит
Алг
нач
опустить перо
сместиться на вектор(2,0)
на вектор(1,1)
на вектор(0,3)
на вектор(-1,1)
на вектор(2,0)
на вектор(-1,-1)
на вектор(0,-3)
на вектор(1,-1)
поднять перо
сместиться на вектор(6,0)
//для "0"