- 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)