Найти сумму чисел , представленых в восьмеричной системе счисления 6542(8)+4321(8)+5563(8)+7543(8)

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.