(, , ) read tv$, , m
= 䠠 if tv$ = then exit do
k := k + 1 k = k + 1
(, , ) ? fv$; ; m
s :=s + cm s= s + c(m
k = 1  if k = 1 then
max
:= c×m max = c×m
ToMax
:= ⠠ $ = tv$
c(m > max  elseif c(m > max then
max
:= c×m max = c×m
ToMax := ⠠ TM = tv$
蠠 end if
렠 loop
(cya=,s) ? cya=,s
() ?
(ToMax, max) ? TM$, max
end
 
.
 
 
 
 
 
 
 
 
 
 
 



( )
( -) -