Вопрос от посетителя:
Дано натуральное четырехзначное число 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.