Написать программу для сложения А и В в троичной системе счисления.Числа А и В хранятся в первой строке входного файла Exemp.in их сумма в троичной системе-в выходном файле Exemp5.out

Program chik;
var a,b,q,s1,s2,s:longint;
begin
read(a,b);
s1:=0;
while a>0 do
begin
q:=a mod 3;
a:=a div 3;
s1:=s1*10+q;
end;
s2:=0;
 while b>0 do
begin
q:=b mod 3;
b:=b div 3;
s2:=s2*10+q;
end;
s:=s1+s2;
writeln(s);
end.