Составить программу. дано число n нужно поменять порядок цифр в этом числе и вывести его. число n вводится с клавиатуры.

Var
   s,s1:string;
  i:integer;
begin
 readln(s);
s1:='';
 for i:=length(s) downto 1 do s1:=s1+s[i];
writeln(s1);
end.