%externalroutine timans(%string (255) s)
%externalroutinespec define(%string (255) s)
%string (255) t,u,v
%integer a,b,c,d,f,e, i

%ownintegerarray tim(0:99)
%ownintegerarray cou(0:99)
%on 9 %start; -> eof; %finish
%unless s -> t.("/").u %start
Printstring("Params as input/output
")
%stop
%finish
define("1,".t); define("2,".u)
select input(1); select output(2)
%cycle
 readsymbol(i); printsymbol(i)
 %exit %if i = nl
%repeat
%cycle
	read(a); read(b); read(c)
	%if a # 0 %start
                %if c < 0 %then c = b-d
		cou(a) = cou(a)+1
		tim(a) = tim(a)+c
	%finish
        d = b
%repeat
eof:
%cycle i = 1, 1, 99
	%if cou(i) # 0 %start
		write(i, 3); write(cou(i), 3)
		print(tim(i)/cou(i), 5, 1)
		newline
	%finish
%repeat
%end
%endoffile