fork download
  1. program ideone;
  2. var
  3. x : string;
  4. i : integer;
  5. begin
  6. readln(x);
  7. for i:=Length(x) downto 1 do Write(x[i]);
  8. end.
Success #stdin #stdout 0s 288KB
stdin
1033
stdout
3301