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

Пример:

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

Пример:

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

var a, b: integer;beginreadln (a);b := 0;while a > 0 do begin  b := b + 1;  a := a div 10end;if (b = 3) then  writeln ('Да')else  writeln ('Нет')end.