Ввести целое число и определить, верно ли, что в нём ровно 3 цифры. Нужно с помощью цикла «while»

Пример:

Введите число:
123
Да

Пример:

Введите число:
1234
Нет.

Вопрос школьника по предмету Информатика

Ввести целое число и определить, верно ли, что в нём ровно 3 цифры. Нужно с помощью цикла «while»

Пример:

Введите число:
123
Да

Пример:

Введите число:
1234
Нет.

Ответ учителя по предмету Информатика

var a, b: integer;

begin

readln (a);

b := 0;

while a > 0 do begin

  b := b + 1;

  a := a div 10

end;

if (b = 3) then

  writeln (‘Да’)

else

  writeln (‘Нет’)

end.