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

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