Ejercicio 20de Pseint: cuadrados de números hasta 100

Proceso numeros_cuadrados
Definir a,b Como Entero;
b<-0;
Para a<-1 Hasta 100 Con Paso 1 Hacer
b<-a*a;
Escribir a ," = ", b;
FinPara

FinProceso