/* ************************************* */
/* Procedimento que testa o ISBN-10      */
/*****************************************/


testaisbn:=proc()

local i, isbn, teste;

begin
	isbn:=0: /* variavel isbn inicializada */
	input("Indique o ISBN da forma [a,b,c,...] ",isbn): /*entrada do isbn pelo utilizador */
	isbnArray:=array(1..10,isbn); /* criar o array com o isbn */
	if (isbnArray[10]=X or isbnArray[10]=x) then 
		isbnArray[10]:=10
	end_if: /* o caso em que o controlo e' X=10 */
	teste:=0;
	for i from 10 downto 1 do
		teste:=teste+(11-i)*isbnArray[i]
	end_for:
	if (teste mod 11 = 0) then print("O ISBN esta' correcto")
	else print(" O ISBN esta' incorrecto"):
	end_if:
end_proc: