1с строку в число

Ответ от Thesn[гуру]
var stroka: string; chislo, error: integer; begin writeln(\'Введите число! \'); readln(stroka); val(stroka, chislo, error); if error = 0 then writeln(chislo) else writeln(\'Вы ввели не число! \') end. А еще лучше так var stroka: string; chislo, error: integer; begin repeat writeln(\'Введите число! \'); readln(stroka); val(stroka, chislo, error); until error=0; writeln(\'Преобразовали: \',chislo) end.