Задание Pascal, цикл WhileВвести целое число и определить, верно ли, что в нем ровно 3 цифры. Пример: Введите число:123:да

begin
  var c := 0;
  var x := readinteger('Введите число:');
  while x > 0 dobegin
    x := x div 10;
    c := c + 1;
  end;
  if(c = 3) then write('Да')
  else write('Нет');
end.