program CountDigits;

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

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

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

count := 0;
for var i := 1 to length(number) do
begin
if StrToInt(number[i]) = lastDigit then
count := count + 1;
end;

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