Скласти алгоритм дляівана царевича,як йому знищити чахлика невмерущого

Якладу(вроде как слова ложу нет)  в лодку свой рюкзак продовольственными продуктами, отталкиваюсь от берега, опираясь шестом в дно.

1) сбить сундук 2)славить зайца 3)выстрелить из лука в утку 4)разбить яйцо 5)сломать иглу.

Расширение .............................................................................. (.svg)

Блок-схема - в прилагаемом файле.

Var a,n,i,k:integer; 
Begin 
Readln(n); 
k:=0; 
i:=0;
repeat
i:=i+1;
readln(a); 
if a>0 then k:=k+1; 
until i=n;
Writeln(k); 
End.

Пример:
5
53
-78
67
-12
40
3

Будем пользоваться формулой K=2^b (K-количество цветов, b-глубина цвета), тогда для кодирования 8 цветов понадобится 3 бита, для 16 цветов - 4 бита, для 256 цветов - 8 бит (1 байт)
65536:256=256*8=2048 бит требуется