Дано целое число. Определить сколько в нем цифр 5. Написать программу в Паскаль АВС

Предыдущий
вопрос Следующий
вопрос

program CountFive;

var
num, count: integer;

begin
count := 0;

writeln('Введите целое число: ');
readln(num);

while num > 0 do
begin
if num mod 10 = 5 then
count := count + 1;

end;

writeln('Количество цифр 5 в числе: ', count);

end.