Даны четыре натуральных числа. Просуммировать те из них, которые не содержат цифру 5

х) var   i, k, b, a, sum: integer; begin   for i := 1 to 4 do   begin     readln(a);     b := a;     k := a;     while (b > 0) do     begin       if (b mod 10 = 5) then       begin         k := 0;       end;       b := b div 10;     end;     sum := sum + k;   end;   writeln(sum); end.