Программа Паскаль Пользователь вводит число. Сколько раз из цифр числа можно составить число 23 - столько раз вывести "выведено число 23"

program qq; var a, count2, count3: integer; begin   writeln('Введите число');   readln(a);   count2:=0;   count3:=0;   while a>0 do   begin     if a mod 10 = 2 then       count2:=count2+1;     if a mod 10 = 3 then       count3:=count3+1;     a:=a div 10;   end;   if count2>count3 then     a:=count3   else     if count3>count2 then       a:=count2     else       a:=count2;   if a<>0 then     while a>0 do     begin       writeln('Выведено число 23');       a:=a-1;     end   else     writeln('Нельзя получить число 23 из цифр введённого числа'); end.