Algoritmo Procedencia

/*
 * Construa um algoritmo que, tendo como dados de entrada o preço de um produto e seu código de origem, mostre o preço junto de sua procedência. Se o código não for nenhum dos especificados, o produto deve ser encarado como importado. Considere a tabela de códigos apresentada abaixo:
Código de origem Procedência
1 Sul
2 Norte
3 Leste
4 Oeste
5 ou 6 Nordeste
7, 8 ou 9 Sudeste
10 até 20 Centro-oeste
25 até 30 Nordeste
Utilize o caso para fazer este algoritmo.
 */
programa
{
	funcao inicio()
	{
		real preco
		inteiro codigo
		cadeia regiao
		escreva ("Informe o preço do produto ")
		leia (preco)
		escreva ("Informe o código de procedencia do produto ")
		leia (codigo)
		escolha (codigo){
		caso (1):
		regiao = "Sul"
		pare
		caso (2):
		regiao = "Norte"
		pare
		caso (3):
		regiao = "Leste"
		pare
		caso (4):
		regiao = "Oeste"
		pare
		caso (5):
		regiao = "Nordeste"
		pare
		caso (6):
		regiao = "Nordeste"
		pare
		caso (7):
		regiao = "Sudeste"
		pare
		caso (8):
		regiao = "Sudeste"
		pare
		caso (9):
		regiao = "Sudeste"
		pare
		caso (10):
		regiao = "Centro-oeste"
		pare
		caso (11):
		regiao = "Centro-oeste"
		pare
		caso (12):
		regiao = "Centro-oeste"
		pare
		caso (13):
		regiao = "Centro-oeste"
		pare
		caso (14):
		regiao = "Centro-oeste"
		pare
		caso (15):
		regiao = "Centro-oeste"
		pare
		caso (16):
		regiao = "Centro-oeste"
		pare
		caso (17):
		regiao = "Centro-oeste"
		pare
		caso (18):
		regiao = "Centro-oeste"
		pare
		caso (19):
		regiao = "Centro-oeste"
		pare
		caso (20):
		regiao = "Centro-oeste"
		pare
		caso (25):
		regiao = "Nordeste"
		pare
		caso (26):
		regiao = "Nordeste"
		pare
		caso (27):
		regiao = "Nordeste"
		pare
		caso (28):
		regiao = "Nordeste"
		pare
		caso (29):
		regiao = "Nordeste"
		pare
		caso (30):
		regiao = "Nordeste"
		pare
		caso contrario:
		regiao = "Importado"
	}
	escreva ("Preço:" + preco +" - Procedência: "+regiao)
	}

}