Составьте программу определяющую Сколько раз в натуральном числе К встречается цифра равная последней. Паскаль АВС

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

program CountDigits;

va
K, lastDigit, count: integer
number: string;

begi
writeln('Введите натуральное число K:')
readln(K);

number := IntToStr(K)
lastDigit := StrToInt(number[length(number)]);

count := 0
for var i := 1 to length(number) d
begi
if StrToInt(number[i]) = lastDigit the
count := count + 1
end;

writeln('Цифра ', lastDigit, ' встречается в числе ', K, ' ', count, ' раз(а)')
end.