Proceso para calcular los cuadrados del 1 al 100.

oceso potencias
Definir a,b Como Entero;
a<-0;
Escribir "los cuadrados son:";
Mientras a<100 Hacer
a<-a+1;
b<-a^2;
Escribir a, "^2", "= ", b;
FinMientras

FinProceso