- 7


L[1:N],c[1:N],p[1:N] dim L(N),c(N),p(N)

ls

(:) ? :

- gosub tovar '

(:) ? :

- gosub ostatok '

(-----) ? -----

- gosub vyruch '

(, S) ? =;S

(:) ? :

- gosub sortdan '

end

 

, - ­ .

 

tovar: '

'

- restore tovs

k = 1 N for k = 1 to N

meue(tv(k),s(k),m(k)) read tv$(k),s(k),m(k)

tv(k) = if tv$(k) = then exit for

(tv(k),s(k),m(k)) ? tv$(k);s(k);m(k)