.data
	msg1: .asciiz"Digite numero inteiro a ser resolvido: "
	msg2: .asciiz"\nO resultado da Progressão Aritmética é: "
	msg3: .asciiz"Digite a razão: "
	msg4: .asciiz"Digite o número de termos: "
.text
main:

	lasso:
	li $v0, 4
	la $a0, msg1
	syscall

	li $v0, 5
	syscall
	add $t1, $v0, 0 #Numero inicial

	blt $t1, 0, lasso

	lasso2:
	li $v1, 4
	la $a1, msg3
	syscall

	li $v1, 5
	syscall
	add $t5, $v1, 0 #razao

	blt $t5, 0, lasso2

	lasso3:
	li $s4, 4
	la $a0, msg4
	syscall

	li $s4, 5
	syscall
	add $t8, $s4, 0 #N de termos

	blt $t8, 0, lasso3

	add $t6, $t5, 0 #razao
	add $t2, $t1, 0 #Numero inicial


	li $t6, 0 #razao
	li $t8, 1 #numero de termos
	li $t2, 0 #numero inicial

	enquanto:
	sub $s1, $t8, 1
	mul $s2, $t6, $s1
	add $t2, $s2, 0
	bgt $t2, 0, enquanto
	li $v0, 4
	la $a0, msg2
	syscall

	li $v0, 1
	add $a0, $t7, $zero
	syscall