rscr;
write('n=');
readln(n);
p:=0;
while n>0 do
begin
i:=n mod 10;
p:=p*10+i;
n:=n div 10;
end;
write(p);
readln
end.
rscr;
write('n=');
readln(n);
p:=0;
while n>0 do
begin
i:=n mod 10;
p:=p*10+i;
n:=n div 10;
end;
write(p);
readln
end.