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

program z1;

var a:integer;

begin

readln(a);

if a div 1000 > 0 then write ('Кол-во цифр больше 3')

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

end.

Объяснение:

При числе состоящем из 3 цифр будет выводить: Кол-во цифр меньше 3

Условие a div 1000 > 0 можно заменить на a >= 1000