Удаление числа, не попадающего в заданный интервал - PascalABC.NET

Формулировка задачи:

как сделать так чтобы введенное с клавиатуры число удалялось,если оно не попадает в интервал от 0 до 2,а введенные перед числом текст нет. пример:
write('введите число '); {это запись не должна удаляться}
 repeat
 readln(p);  
  untilp in['0'..'2'];

Код к задаче: «Удаление числа, не попадающего в заданный интервал - PascalABC.NET»

textual
  repeat
    gotoxy(x1, y1);
    while wherex < WindowWidth do write(#32);
    gotoxy(x1, y1);
    readln(p);
  until p in ['0'..'2'];

10   голосов, оценка 3.700 из 5


СОХРАНИТЬ ССЫЛКУ