program capicua(inputoutput);

(* Plantee e implemente una función en PASCAL que indique si un array de enteros es capicúa.
   Autor: Fernando Posse
   FEcha: 5-12-11
   Version: 1.0
*)


TYPE

tarray= ARRAY[1..n] of integer;
VAR
tabla:tarray;
n:integer;



(**************************************************************************************************)
procedure meter(VAR tabla:tarray;VAR n:integer;);
 VAR
 i:integer value 1
 BEGIN
  write('Escriba el numero de componentes del array ');
  readln(n);
  write('Escriba el número ');

  WHILE not eoln do
   BEGIN
    read(tabla[i]);
    i:=i+1;
   END;
 END;
(****************************************************************************************************)
(*function calculo(tabla:tarray):boolean;
 VAR
  i:integer;
  capi:boolean value true;
 BEGIN
  WHILE capi do
   BEGIN
*)

BEGIN meter(tabla) end.