program sumOfDigits;
var
n, digit, sum: integer;
begin
sum := 0;
// ввод числа
readln(n);
// перебираем каждую цифру числа
while n > 0 do
begin
digit := n mod 10; // получаем последнюю цифру числа
if digit <= 5 then // если цифра не больше 5
sum := sum + digit; // добавляем ее к сумме
n := n div 10; // удаляем последнюю цифру из числа
end;
// выводим сумму цифр не больше 5
writeln(sum);
end.

При вводе числа 650 программа выведет результат 5, так как сумма цифр не больше 5 в числе 650 равна 5.