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

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

Задача 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.