Construcción de las Torres Gemelas de Pascal

f:array:= 0;

Para i:=1 an {enumerar el número de cristales (incluidos los construidos y abandonados)}

Para j:=0 a m, {enumere las diferencias de altura}

Inicio

Si a & gt entonces 0

Escriba (f)

Otro

Escribir('imposible');

Fin.