Даны четыре натуральных числа. Просуммировать те из них, которые не содержат цифру 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.