Можно так:

Var
A,i,S:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
S:=0;
For i:= 1 to 6 do
    Begin
    S:=S + (A mod 10);
    A:=A div 10;
    End;
WriteLn('S = ',S)
End.


И так:

Var
A,S:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
S:=0;
S:=A mod 10;
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
WriteLn('S = ',S)
End.


Или так

Var
A:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
WriteLn('S = ',(A div 100000)+((A div 10000)mod 10)+((A div 1000)mod 10)+((A div 100)mod 10)+((A div 10)mod 10)+(A mod 10))
End.