Дано 6-ти значное число Найти сумму его цифр (С помощбя паскаля) (Информатика 9 класс )

Можно так: 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.