Ввести целое число и определить, верно ли, что в нём ровно 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.