Palindromo

PROGRAM lista_05_exercicio_07;

VAR I,N,CONT,R,AUX: INTEGER;

X : ARRAY [1..50] OF INTEGER;

BEGIN

{Condições necessárias para o bom funcionamento do programa}

CONT := 0;

AUX := 0;

{Informando o número}

REPEAT

WRITE ('Informe a quantidade de algarismo: ');

READLN (N);

WRITELN;

UNTIL (N>0);

{Algarismos dos números}

FOR I := 1 TO N DO

BEGIN

REPEAT

READ (X[I]);

UNTIL (X[I]>0)

END;

WRITELN;

{Verifcando a igualdade dos algarismo}

R := N - 1;

FOR I := 1 TO R DO

BEGIN

IF (X[AUX + 1] = X[N-I])THEN

CONT := CONT + 1;

AUX := AUX + 1;

END;

{Verificando se é palindromo , e imprimindo a resposta}

IF (CONT = 0) THEN

WRITE ('Nao e palindromo !')

ELSE

WRITE ('E palindromo !');

READLN;

END.