(* error *)




Program capicua (input,output);

CONST
i= 1;
n= 9;

TYPE

digitos= 1..9;
anum= ARRAY [i..n] OF digitos;

VAR

vnum: anum;
solucion: boolean;





PROCEDURE pedir (vnum:anum; n:integer);
VAR
a: integer;
num: integer;


BEGIN
  writeln ('Escriba el número de digitos');
  readln (n);

  FOR a:= 1 TO n DO
    BEGIN
      writeln ('Escriba cifra' ,a);
      readln(num);
      vnum[a]:= num;
    END;
END;


FUNCTION capicua (vnum:anum; i,n:integer):boolean;

VAR
temp: boolean;

  BEGIN
    writeln ('Escriba el número de dígitos');
    readln (n);
    i:=1;
    WHILE (i <= n) DO
      BEGIN
        IF vnum[i] = vnum[n]  THEN
          BEGIN
            n:= n - 1;
            i:= i + 1;
          END;
        ELSE
            temp:= false;
        temp:= true;
      END;


    capicua:= temp;
  END;

BEGIN

  pedir(vnum,n);
  solucion:= capicua(vnum,i,n);
  writeln (solucion);

END.