Написать программу для сложения А и В в троичной системе счисления. Числа А и В…

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