prog prueba1 ;

int long ; int ind ; int c ;
array_int a1 , 10 ; array_real a2 , 10 ;

proc invertir ;
val_array_int a1 , 10 ; ref_array_real a2 , 10 ;
int i ;
i := 0 ;
10 : if i > long goto 20 ;
$1 := long - i ;
$3 := a1 [ i ] ; a2 [ $1 ] := $3 ; a1 [ i ] := 0 ;
i := i + 1 ;
goto 10 ;
20 : finproc ;
long := 9 ;
ind := 0 ;
30 : if ind > long goto 40 ;
read c ;
a1 [ ind ] := c ;
ind := ind + 1 ;
goto 30 ;
40 : param_val a1 ; param_ref a2 ; call invertir ;
ind := 0 ;
50 : if ind > long goto 60 ;
$1 := a1 [ ind ] ; $2 := a2 [ ind ] ;
write $1 ; write $2 ; writeln ;
ind := ind + 1 ;
goto 50 ;
60 : halt ;