Дано три числа. вычислите сколько раз встречается среди них число 5

Var a, b, c, d:integer;beginreadln (a, b, c);while a>0 dobeginif a mod 10=5 then d:=d+1;a:=a div 10;end;while b>0 dobeginif b mod 10=5 then d:=d+1;b:=b div 10;end;while c>0 dobeginif c mod 10=5 then d:=d+1;c:=c div 10;end;writeln (d);end.