Дано натуральное четырехзначное число n. Найти сумму его цифр.

Паскаль же? var s, x: string; c, n, err, i, d, k:integer;begin readln (s); n:=length(s); for i:=1 to n do begin d:=d+k; val(s,k,err); end; write (d); end.

var a,b,c,d,x,res:integer; begin readln(x); a:=x div 1000; b:=x mod 10; c:=x div 100 mod 10; d:=x mod 100 div 10; res:=a+b+c+d; writeln(res); readln; end.