Code
var i, k: integer;
s, s1: string;
{функция перевода в семеричную систему}
function to_seven (x: integer): string;
var res: string;
a: integer;
begin
res:='';
while x>0 do
begin
a:=x mod 7;
if a<10 then
res:=chr(ord('0')+a)+res
else
res:=chr(ord('A')+a-10)+res;
x:=x div 7;
end;
to_seven:=res;
end;
{функция перевода из семеричной системы}
function from_seven(x: string): integer;
var res: integer;
begin
res:=0;
while x<>'' do
begin
res:=res*7;
if x[1] in ['0'..'9'] then
res:=res+ord(x[1])-ord('0')
else
res:=res+ord(upcase(x[1]))-ord('A')+10;
delete(x,1,1);
end;
from_seven:=res;
end;
begin
readln(k);
s:=to_seven(k);
s1:='';
{оборот числа}
for i:=length(s) downto 1 do
s1:=s1+s[i];
writeln(from_seven(s1));
readln;
end.
