program odzadu;
  var s:string;
      i:integer;
begin
  write('Zadaj retazec:');
  readln(s);

  for i:=length(s) downto 1 do begin
    write(s[i]); {i-ty znak. napr. s[1] je prvy znak retazca}
  end;
end.