- 8


/p>

 

, ­ :

 

 

_ = ? <min>

_ = ? <max>

<> <>

 

 

data:

dan: '

data , , 180

data , , 160

data , , 190

data , , 0

­ , .

 

'

ls

( ) print

(_ =>, min) input _ =>, mn

(_ =<, ) input _ =<, m

- dan restore dan

n: = 0 n = 0

do

(, , r) read fm$,im$,r

= if fm$ = then exit do

min £ r r £ max if mn<= r and r <= mx then

(, ) print fm$, im$

n: = n+1 n = n+1

end if

loop

n = 0 if n = 0 then