Напишите программу в паскале
Дано целое четырёхзначное число N и целое число k. Написать программу, подсчитывающую сумму тех цифр числа N, которые больше k

Предыдущий
вопрос Следующий
вопрос

program SumOfDigitsAboveK;

var
N, k, number, sum: integer;

begin
write('Enter a four-digit number N: ');
readln(N);

write('Enter an integer k: ');
readln(k);

sum := 0;
number := N;

while number > 0 do
begin
if (number mod 10) > k then
sum := sum + (number mod 10);

end;

writeln('The sum of digits in ', N, ' that are greater than ', k, ' is ', sum);
end.