Program Prevraceni2;

var delka, poradi: integer;
    vstupni, vystupni: String;

begin
  writeln('Zadej vstupn etzec (max. 255 znak): ');
  readln(vstupni);
  delka := length(vstupni);
  for poradi:=1 to delka do
    begin
      vystupni[poradi]:=vstupni[delka-poradi+1];
      vystupni:=vystupni+vystupni[poradi];
    end;
  writeln();
  writeln('Pevrcen etzec: ', vystupni);
  if (vstupni = vystupni) then
    writeln('Vstupn etzec je palindrom.')
  else
  writeln('Vstupn etzec nen palindrom.');
  readln();
end.