С клавиатуры вводится натуральное число. Найти сумму его цифр больших 5.

var i, d, a, OneDigit: integer; begin write ('Введите число:'); read (i); write ('Введите a: '); read (a); if (a > = 0) and (a a then / /Проверяем цифру в переменной OneDigit d : = d + OneDigit; / /Оставляем число, делённое на 10 - отбрасываем правую цифру I : = i div 10; until I = 0; writeln ('Сумма цифр заданого числа равна:'); write (d); end; end.