read KITA:
read M1:


for i from 1 to nops(S22) do
writeto(S22[i][2]):
MakeSol(S22[i][1]):
od:



for i from 1 to nops(S23) do
writeto(S23[i][2]):
MakeSol(S23[i][1]):
od:


for i from 1 to nops(S24) do
writeto(S24[i][2]):
MakeSol(S24[i][1]):
od: