Вводится натуральное число n требуется найти сумму четных цифр числа 2) найти количество цифр 2 в числе 3) найти максимальную нечетную цифру в числе ПАСКАЛЬ СРОЧНО!!

{} var n : uint64; sum, count, max: byte; begin write ('Введите натуральное число: '); readln (n); repeat if ((n mod 10) mod 2)=0 then inc (sum, n mod 10) else if (n mod 10)>max then max:=n mod 10; if (n mod 10) = 2 then inc (count); n:=n div 10; until n=0; writeln ('Сумма четных цифр: ', sum); writeln ('Кол-во цифр 2: ', count); if max=0 then writeln ('Нет нечетных цифр') else writeln ('Макс. нечетная цифра: ', max); end.