Termux : Compilador FreePascal

En termux , además de los lenguajes de la familia gcc, también tenemos disponibles otros lenguajes de programación.
Uno de ellos es el compilador de pascal FreePascal, con un largo recorrido en diferentes sistemas operativos y procesadores.
FreePascal es un paquete estandar de Termux, por lo que instalarlo solo requiere ejecutar :
   pgk install fp-compiler 
A continuación un pequeño programa de ejemplo relacionado con el post anterior de ecuaciones cúbicas: // // Programa para resolver la ecuación cúbica k = x³+y³+z³ // Se utiliza "fuerza bruta" con valores de x en el rango 1 - 200000 // Los valores de y,z se generan a partir de x // program ed02; uses Sysutils; const C_FNAME = 'sol02.txt'; var tfOut: TextFile; i,j,k:longword; x0,x1,x2,x:int64; begin Assign(tfOut , C_FNAME); if (FileExists(C_FNAME)) then append(tfOut) else rewrite(tfOut); for i:=1 to 200000 do begin x0:=i; for j:= 1 to i-1 do begin x1:=j; for k:=1 to j-1 do begin x2:=k; x:= x0*x0*x0 - x1*x1*x1 - x2*x2*x2; if (x<0) then break; if (x<10001) then begin writeln('d'+inttostr(x)+' ='+inttostr(i)+'^3 - ' + inttostr(j)+'^3 - '+inttostr(k)+'^3'); writeln(tfOut,'d'+inttostr(x)+' ='+inttostr(i)+'^3 - ' + inttostr(j)+'^3 - '+inttostr(k)+'^3'); end; end; end; end; Close(tfOut); end.