lprint("Úloha 407:");
n := 4;
zadani := Matrix(4, 5, [[1.00000048,.49999954,.333333083333333,.25000028,
4.70000000030169e-007],[.4999994,.333333683333333,.25000078,.19999919,
.216662386666667],[.333333843333333,.24999946,.20000023,.166666306666667,
.233329613333333],[.2500002,.19999983,.166665996666667,.142856262857143,
.221426521428571]], datatype = float[8]);