program ReversStroki;
{$mode delphi}{$apptype console}
uses SysUtils;
var s, r: string; i: Integer;
begin
  Write('Строка: '); ReadLn(s);
  r := '';
  for i := Length(s) downto 1 do r := r + s[i];
  WriteLn('Реверс: ', r);
  ReadLn;
end.