program gd;
var r:real;
    i,sum,err,v:integer;
    s:string;
 
begin
write('Vvediti rechovinne chislo: ');  {выводим фразу на экран}
readln(r);        {считываем число с клавиатуры}
str(r,s);         {число преобразовываем в строку}
sum:=0;
for i:=1 to length(s) do {циклом с начала и до конца строки}
if s[i]<>'.' then  begin {не учитывая точки в этом числе}
val(s[i],v,err);         {преобразовываем текущую ЦИФРУ с строкового типа в ЦЕЛочисленный (integer)}
sum:=sum+v;        end;  {текущую ЦИФРУ добавляем к Имеющейся сумме}
 
writeln('Summa= ',sum);  {выводим результат суммы на экран}
readln;
end.