nar

var mas:array[1..10,1..3]of integer;
    i:integer;
    n:integer;
    t:integer;

begin
  writeln('введите количество ячеек массива');
  readln(n);
  for i:=1 to n do
    begin
      readln(mas[i,1]);
      mas[i,3]:=mas[i,1];
    end;
  for i:=1 to n do
    begin
      while mas[i,1]>0 do
        begin
          t:=t+mas[i,1]mod 10;
          mas[i,1]:=mas[i,1] div 10;
        end;
      mas[i,2]:=t;
      t:=0;
      writeln(mas[i,3],' - ',mas[i,2]);
    end;
end.