type
PData=^TData;
TData=record
           sh:char;
           Next:Pdata;
           end;
var
Data:PData;
f:Text;

procedure reverse_print(Data:PData);
var
p:PData;
i,j:byte;
function getsize(Data:PData):byte;
var
p:PData;
n:byte;
begin
    n:=0;
    p:=Data;
    while p<>nil do begin
          n:=n+1;
          p:=p^.Next;
    end;
getsize:=n
end;

begin
for j:=getsize(p) downto 1 do begin
   for i:=1 to j do p:=p^.Next;
   write(p^.sh);
   p:=Data;
end
end;

Procedure ReadData(var f:Text;var Data:Pdata);
var
p,q:PData;

begin
{$I-}reset(f);{$I+}
if IOResult<>0 then begin Exit; end;
New(p);q:=p;
repeat
q^.Next:=nil;
{$I-}read(f,q^.sh);{$I+}
if IOResult<>0 then begin
  while p<>nil do begin q:=p^.Next; Dispose(p);p:=q;end;
   Exit;
end;
if not Eof(f) then begin New(q^.Next); q:=q^.Next; end;
until Eof(f);
Data:=p;
end;

begin
WRITELN('PALINDROM PROGRAM ');
Assign(f,'inp.txt');
ReadData(f,Data);
reverse_Print(Data);
end.

for i:= 29 downto 1 do
write(s[i]);