Programación en diferencias cuadradas

var a, b, c: longint;

Empieza desde a: = 1 a 50 {puede tomar un número mayor}

Para b :=1 a 50{Igual que arriba} hacer

Para c:=1 a 50{Igual que arriba} hacer

Si a*a*a=b*b+c *c luego

Escribe (a, ' * ', a, ' * ', a, ' = ', b, ' * ', b, '+', c, ' * ', c, # 32) ;{#32 es un espacio, '#' es chr);

Fin.