tex

n-x=1;
k=1;
text-x[1]=scan-tex-positiu();
while( text-x[1] == [ \nom{ ] ; text-x[k] != [ } ] ; k++ )
{
int text-x[k];
text-x[k]=scan-tex-positiu();
n-x++;
}
k=(-1);
text-y[(-1)]=scan-tex-negatiu();
while( text-y[(-1)] == [ } ] ; text-y[k] != [ \nom{ ] ; k-- )
{
int text-y[k];
text-y[k]=scan-tex-negatiu();
}
avanç-text-positiu(n-x);


k=1;
text-x[1]=scan-tex-positiu();
while( text-x[1] == [ \dual-nom{ ] ; text-x[k] != [ } ] ; k++ )
{
int text-x[k];
text-x[k]=scan-tex-positiu();
}
n-y=(-1);
k=(-1);
text-y[(-1)]=scan-tex-negatiu();
while( text-y[(-1)] == [ } ] ; text-y[k] != [ \dual-nom{ ] ; k-- )
{
int text-y[k];
text-y[k]=scan-tex-negatiu();
n-y--;
}
avanç-text-negatiu(n-y);