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.