Написать программу для сложения натуральных чисел a и b в троичной системе счисления. числа a и b хранятся в первой строке входного файла exemp5.in, их сумма в троичной системе счисления - в выходном файле exemp5.out.

Uses
  crt;
var
  num1,num2,num3:integer; 
  chtenie:text;
  zapis:text;

 
{фунция перевода числа в троичную систему счисления}
function FromDec(n:longint):string;
var
  s:String;
const
  digit:string[16]='0123456789ABCDEF';
begin
  s:='';
  repeat
    s:=digit[(n mod 3)+1]+s;
    n:=n div 3;
  until n=0;
    FromDec:=s;
end;

{осоновная программы}
begin
{читаем из файла}
assign(chtenie,'Exemp5.in');
reset(chtenie);
read(chtenie,num1);
read(chtenie,num2);
close(chtenie);

{записываем в файл}