program palindrom;
 uses crt;
 const n=50;
 var
  a: array [1..n] of char;
  c:char;
  i,j:integer;
  begin
  writeln ('zadaj retazec konciaci *'); i:=0 ; read (c);
  while c<>'*' do begin
   if c<>' ' then begin
                      i:=i+1;
                      a[i]:=c;
                       end;
   read (c)
   end;
   j:=0;
  repeat
     J:=j+1
  until ((j= i div 2) or (a[j]<>a[i-j+1]));
  if a[j]<>a[i-j+1] then writeln (' retazec nie je palindrom')
                    else writeln  (' retazec je palindrom')  ;


  readkey
  end.