Повторить ввод при неверных значениях - Free Pascal

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

Есть ли такая функция которая при вводе неправильного значения начинала программу заново?

Код к задаче: «Повторить ввод при неверных значениях - Free Pascal»

textual
repeat
  writeln('Введите размер мужского носка за стандартом Украины');
  readln(x);
  case x of
  23:writeln ('Размер носков за стандартом ЭС 37/38');
  25:writeln ('Размер носков за стандартом ЭС 39/40');
  27:writeln ('Размер носков за стандартом ЭС 41/42');
  29:writeln ('Размер носков за стандартом ЭС 43/44');
  31:writeln ('Размер носков за стандартом ЭС 45/46');
  else
    writeln ('Это значение не подходит, повторите ещё раз!')
  end;
until x in [23,25,27,29,31];

7   голосов, оценка 3.714 из 5


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