# data[].attributes.body
Escribir "Ingrese la base y la altura"
Leer b,h
area<-b*h
Escribir "El área del rectángulo es: " area

# data[].attributes.body
Escribir "ingresa la base y la area"
Leer b,h
area<-(b*h)/2
Escribir "El area del triangulo es: " area

# data[].attributes.body
Escribir "ingresa los dos números"
Leer n1,n2
multiplica<-n1*n2
Escribir "El resultado de la multiplicación es es: " multiplica

# data[].attributes.body
Escribir "ingresa los dos números"
Leer n1,n2
divide<-n1/n2
Escribir "El resultado de la division es: " divide

# data[].attributes.body
Escribir "ingresa los dos números"
Leer n1,n2
resta<-n1-n2
Escribir "La resta es: " resta

# data[].attributes.headline
Si queremos poner otra operaciòn cambiamos la suma por otra operasiòn

# data[].attributes.subject
Si queremos poner otra operaciòn cambiamos la suma por otra operasiòn

# data[].attributes.body
Escribir "ingresa los dos números"
Leer n1,n2
suma<-n1+n2
Escribir "La suma es: " suma