НЧ
Наталия Честнова
пишет ожидался идентификатор в строчке с первым begin. нужно сделать модуль
unit summa_cifr ;
interface
var
a,b,s:integer;
begin
s:=0;
readln (a);
while (a>0) do
begin
b:=a mod 10;
a:=a div 10;
s:=s+b;
end;
writeln (s);
end.