- 3


26

6

1949

22

5

1946

25

10

1973

1

12

1974

 

­ data:

 

:


26

6

1949

22

5

1946

25

10

1973

1

12

1974

 

 

dni: '

data , 26, 6, 1949

data , 22,5, 1946

data , 25, 10, 1973

data , 1, 12, 1974

data , 0, 0, 0


 

!

1. data

.

2.

data - , .

, . ­ data, .

, :

 

'

ls

( ) print

dni restore dni

do

(, d, , g) read nn$, d, m,

g

= if nn$ = exit then do

(, d, m, g) print nn$, d, m, g

loop

end

 

. - ­ , .