val.pas

 {Val.PAS}
 
 { Пример программы для процедуры Val }
 
 Var I, Code : Integer;
 
 Begin
  { Получаем текст из командной строки }
  Val(ParamStr(1), I, Code);
  { Была ошибка при преобразовании ? }
  If Code<>0 Then WriteLn('Ошибка при преобразовании в позиции : ', Code)
             Else WriteLn('Число = ', I);
 End.