Ответ:

program Sum1;

var  a, n, sum: integer;

begin

 readln(n);

 while n > 0 do  begin

   sum := sum + n mod 10;

   n := n div 10;

 end;

 writeln(sum);

end.

Объяснение:

program Sum1;  // Невозможно объявить два одинаковых слова в var и в названии программы - будет ошибка.