Найти "Сумму цифр четырёхзначного числа" В PaskalABC

program task; var x,i,sum:integer; begin readln(x); sum := 0; for i := 1 to 4 do begin sum := x mod 10 + sum; x := x div 10; end; writeln(sum); readln; end.