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