Программа слаживает все цифры натурального числа, введённого пользователем, и выполняет из них сумму:



var  r: real;  s: string;  q: integer;  sum: real;  i: integer;
begin    Write(' Введите натуральное число: ');    Readln(r);    s := FloatToStr(r);    q := length(s);    for i := 1 to q do    begin        r := StrToFloat(s[i]);        if r > 5 then      sum := sum + r;       end;    writeln(' Сумма всех чисел, превышающих 5 = ', sum, '.');  end.