Дано шестизначное число . Найти сумму его цифр ( ПАСКАЛЬ )
СРОЧНО !!! ПЛИИИЗЗЗЗЗЗЗЗЗЗЗЗ!

var sum:integer;      n:longint;begin    readln(n);    sum := 0;    repeat         sum := sum + (n mod 10);        n := n div 10;    until n = 0;    write(sum);end.

Var   A:longint;   S:integer;BeginWrite('Введите целое число: ');ReadLn(A);if A < 0 then A:=-A;S:=0;While A > 0 do   Begin   S:=S+A mod 10;   A:=A div 10;   End;WriteLn('S = ',S)End.Пример работы программы:Введите целое число: 123456S = 21