Дано натуральное число. определить: а) количество цифр 3 в нем; б) сколько раз в нем встречается последняя цифра;

Var
  n:longint;
  d,dn,m,k:integer;
begin
  Write('Введите натуральное число: '); Read(n);
  m:=0; k:=0;
  dn:=n mod 10;
  repeat
    d:=n mod 10;
    if d=3 then Inc(m);
    if d=dn then Inc(k);
    n:=n div 10
  until n=0;
  Writeln('Количество цифр 3 в числе равно ',m);
  Writeln('Последняя цифра встречается в числе ',k,' раз(а)')
end.

Тестовое решение:
Введите натуральное число: 1035334030
Количество цифр 3 в числе равно 4
Последняя цифра встречается в числе 3 раз(а)