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

Var N,k,sum : Integer;Begin  sum:=0;  Readln(N,k);  While N>0 do  Begin   If (N mod 10)>k then sum:=sum+(N mod k);   N:=N div 10;  end;end.или такVar N,k,sum : Integer;Begin  sum:=0;  Readln(N,k);  While N>0 do  Begin   sum:=sum+(N mod 10)*Ord((N mod 10)>k);   N:=N div 10;  end;end.или такVar N,k : Integer;Function sum(N,k : Integer) : Integer;Begin  If (N>0) and ((N mod 10)>k) then sum:=(N mod 10)+sum(N div 10,k) else sum:=0;end;Begin  Readln(N,k);  Writeln(sum(N,k));end.