Определите сумму цифр числа паскаль

Uses crt;
Var i,n,sm:integer;
Begin
Clrscr;
Writeln(Введите число N: );
Readln(n);
For i:=1 to n do
Sm:=sm+i;
Writeln(Сумма цифр числа ,n, равно ,sm);
Readkey;
End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.