Повторить ввод при неверных значениях - 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];