Помогите пожалуйста Дано натуральное число. Определить: а) количество цифр 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 раз(а)