Так как четырехзначное число может содержать от 0 до 4 цифр кратных 5, то можно использовать следующий код на Python для подсчета количества цифр кратных 5 в числе:

number = 1234
count = 0
for i in str(number):
if int(i) % 5 == 0:
count += 1
print("Количество цифр кратных 5 в числе:", count)

Для числа 1234 программа выведет результат: "Количество цифр кратных 5 в числе: 1" - что означает, что в числе только одна цифра кратна 5.

Алгоритм на Pascal:

var
number, count, temp: integer;
begin
number := 1234;
count := 0;
while number <> 0 do
begin
temp := number mod 10;
if temp mod 5 = 0 then
count := count + 1;
number := number div 10;
end;
writeln('Количество цифр кратных 5 в числе: ', count);
end.

В Pascal результат работы программы будет аналогичен результату на Python.