begin	comment  apv 290969  5238, aanpassing input;
	integer a,b,c1,c2,d1,d2,i,j,k,l,m,n,t;	n:= READ;
begin	integer array A[1:n, 1:3, 2:23], B[1:n];
	procedure NL; begin NLCR; PUNLCR; end;
	procedure OUT(a,b,c); value a,b,c; integer a,b; real c;
	begin	ABSFIXT(a,b,c); ABSFIXP(a,b,c) end;