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

все что было дано я уже написала.

больше ничего добавить не могу

или просто ответьте на вопрос: как можно узнать, содержит или нет число цифру 5.

Ввести переменную пройтись по всем цифрам числаЕсли есть "5" - изменить значение переменной

var A,S,i:integer;procedure summ(a:integer;var s:integer);var k:integer; t:boolean;begin t:=false; k:=a; if k<10 then k:=k+10; repeat t:=(k mod 10=5); k:=k div 10; until (k=0) or t; if not t then s:=s+a;end; begin S:=0; for i:=1 to 4 do begin write(I,' число ='); readln(A); summ(A,S); end; writeln('S=',S);end.

х)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.