Ecrire un programme en turbo pascal

Bonjour,


Je voudrais écrire le programme suivante:

j'ai 20 variables: x1,x2,x3,x4,x5, y1,y2,y3,y4,y5, z1,z2,z3,z4,z5, t1, ...,t5
Toutes prenant comme valeurs 0, 1, 2 ou 3 sauf x5, y5, z5 et t5 qui prennent 0, 1, 2, 3, 4, ou 5 comme valeurs.

Si 4x1+3.5x2+3.5x3+4x4+0.5x5 = 16.5
4y1+3.5y2+3.5y3+4y4+0.5y5= 20
4z1+3.5z2+3.5z3+4z4+0.5z5 = 21
4t1+3.5t2+3.5t3+4t4+0.5t5 = 21
x1+y1+z1+t1=5 et x2+y2+z2+t2 =5 et x3+y3+z3+t3 =5 et x4+y4+z4+t4 = 5 et x5+y5+z5+t5=5

alors afficher la listes des 20-uplets solutions en faisant des groupes de 5 (les xi, les yi, les zi et les ti séparés ) pour plus de lisibilité

J'ai essayé en enchainant des for, to, do mais ça fait trop de calcul à faire donc il marche pas (ou très très lent car n'affiche rien)

Comment faire ?
Merci !