Proceso multi_7
Definir a,b,c,d Como Entero;
Escribir "Cantidad: ";
Leer a;
Para d<-1 Hasta a Con Paso 1 Hacer
c<-7*d;
Escribir "7", "x", d ,"=", c;
FinPara
FinProceso