program g;
type cisla=0..9;
var m:array [1..1000] of cisla;
    i:integer;
    n:word;
    s,x:string;
    x1,code:integer;
 
begin
write('Vvedite cislo: ');
readln(n);
str(n,s);
writeln;
write('Isgodnoe cislo: ');
for i:=length(s) downto 1 do write(s[i]);
 
readln;
end.