- 7


 

'

cls

( ) ?

( ) ?

N: = 0 n = 0

do

(Fam, r, v) read famS, r, v

Fam = if fam$ = then exit do

(Fam, v) ? fam$, v, r

N:=N+1 n = n+1

N == 1 V < Vmin if n=l or v < vmin then

Vmin: =

V vmin = v

Fmin: =

Fam fmin$ = fam$

end if

loop

( :) ? :

(Fmin, Vmin) ? fmin$, vmin

end

 

, .