home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SORT2.ZIP / REV.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-01-04  |  182 b   |  6 lines
  1. program rev;
  2. { reverses each line of input }
  3. var s:string; i:integer;
  4. begin while not eof do begin
  5.    readln(s); for i:=length(s) downto 1 do write(s[i]);
  6.    writeln; end; end.