Program p1;

Var s,inv:string;
      i:integer;
Begin
inv='';
writeln('Introduceti sirul de caractere: ');
readln(s);

for i=1 to Length(s) do
begin
inv:=s[i]+inv;
end;
writeln('Sirul inversat este: ');
writeln(inv);
End.