Определить сумму цифр введенного числа a (a<1000)
в паскале, через for

var a, sum, i: integer; begin     writeln('Enter number: ');     readln(a);     sum := 0;     for i:=1 to a do         begin            sum := sum + n mod 10;            n := n div 10 end;         end;     writeln('Sum of digits = ', sum);    readln; end.