Вопрос

Переменная code в результате работы операторов var s:string; x:integer; begin s:='258%'; val (s, x, code); получит значение
Адаптивное тестирование - быстрая и точная оценка персонала