Localize file www.TrSek.com/cover/neznamy/reverse.pas{ REVERSE.PAS }
{ User enters a phrase and program outputs the same phrase in reverse}
{ }
{ Author: Unknown }
{ Datum: 20.01.2009 http://www.trsek.com }
program output_reverse_string;
uses crt;
var
s : string;
i : integer;
begin
clrscr;
writeln ('PLease enter your name so it can be outputed in reverse order');
readln (s);
writeln;
for i := 1 to length(s) do
begin
end;
writeln;
for i := length(s) downto 1 do
begin
write(s[i]);
end;
readkey
end.