Простая задача с вычислением

[Avicenna]

йцуйцуйцйцй

[Rififi]

Avicenna

Что уже сделано, что вызывает затруднения?

Если ничего не сделано и делать не хочется, то готовые решения покупаются тут

[Avicenna]

Program facepalm2;
Uses Crt;

var x:integer;
i,s:integer;
f,f2:text;

begin
Assign(f, 'Input.txt');
Reset(F);
s:=0;
Read(f,x);
while ( x<>0 ) do
begin
s := s + (x mod 10);
x := x div 10;
end;
Close(F);

Assign(f2, 'ANSWER.txt');
Reset(f2);
Write(f2,s);
Close(f2);
end.

[Avicenna]

Вот где тут ошибка?

[Rififi]

Вот где тут ошибка?

Ошибка в том, что программа неправильная чуть менее, чем полностью

например, из файла ты считываешь только число N

а вот эти строки -

s := s + (x mod 10);
x := x div 10;

они зачем?

Программа своя или взята первая попавшаяся? :D