Пример использования val для контроля вводимых с клавиатуры данных — Pascal(Паскаль)

program month;
var
     mon:integer;
     buf:string[10];   { буфер для ввода строки}
     code:integer;     { код ошибки преобразования строки в число }
begin
     repeat
          write('Месяц->');
          readln(buf);     { вводим номер месяца как строку }

          val(buf,mon,code);{ преобразуем строку в число }
          if code<>0    { введенная строка не цифра }
               then writeln('Ошибка! Месяц следует задать цифрой.');
     until code=0;
end.