Программа на вход получает целое положительное число. Вывести кол-во цифр в числе и если количесвто цифр в этом числе больше 3 , то ввести надпись "Количество цифр больше 3" в противном случае "Количество цифр меньше 3". While+if

program Название программы;

var a,b,c:integer;

begin

   write('Ведите число');

   readln(a);

   b:=10;

   c:=a;

   while a > 0 do begin

       b:=b+1;

       a:=a div 10;

   end;

   if b < 3 then

   begin

       writeln('Кол-во цифр больше 3');

   end

   else

   begin

       writeln('Кол-во цифр меньше 3');

   end;

end.

Объяснение: