Дано натуральное число.определить сумму его цифр, больших 5

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

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.

Program pr;
uses crt;
Var N,M:array[1..15] of integer;
    i,kNp,kMp,kNo,kMo:integer;
Begin
kNp:=0;
kMp:=0;
kNo:=0;
kMo:=0;
Writeln('mas(N)');
for i:=1 to 15 do Begin N[i]:=random(36)-15; Write(N[i],';') end;
Writeln;
Writeln('mas(M)');
for i:=1 to 15 do Begin M[i]:=random(36)-15; Write(M[i],';') end;

for i:=1 to 15 do Begin
                  if N[i]>=0 then kNp:=kNp+1
                             else kNo:=kNo+1;
                  if M[i]>=0 then kMp:=kMp+1
                             else kMo:=kMo+1;
                  end;
Writeln;
Writeln('Кол-во положительных массива N=',kNp);
Writeln('Кол-во отрицательных массива N=',kNo);
Writeln('Кол-во положительных массива M=',kMp);
Writeln('Кол-во отрицательных массива M=',kMo);
readln;
end.

Данная задача является алгоритмом. Мы должны выстроить последовательность действий так,чтобы не остаться в проигрыше.

Цель: перевезти животных и капусту,так,чтобы никто из них не наведил друг другу. Перевозчик-это исполнитель(объект выполняющий действие)

1)Взять козу,переплыть,высадить.

2)Переплыть, взять волка,переплыть,высадить,взять козу,переплыть высадить.

3) Взять капусту, переплыть, высадить.

4)Переплыть,взять козу, переплыть,высадить.

5) Конец алгоритма(4 пункт является результатом последовательно выполненных действий)