program SumOfDigitsAboveK;

var
N, k, number, sum: integer;

begin
write${}^{\prime }Enterafour-digitnumberN{:}^{\prime }$;
readln$N$;

write${}^{\prime }Enteranintegerk{:}^{\prime }$;
readln$k$;

sum := 0;
number := N;

while number > 0 do
begin
if $numbermod10$ > k then
sum := sum + $numbermod10$;

end;

writeln${}^{\prime }Thesumofdigitsi{n}^{\prime },N{,}^{\prime }thataregreatertha{n}^{\prime },k{,}^{\prime }i{s}^{\prime },sum$;
end.