Задача 1 Урок 17

Урок 17. Явное приведение типа в Паскаль -- преобразование строки в число

{17 - 1 Пользователь вводит строку, проверьте является ли она числом,
если да, то выведите в ответ это число, иначе сообщите об ошибке.}

var s: string;
    num, code: integer;
begin
  writeln('string -> num');
  readln(s);
  val(s,num,code);
  if code = 0 then
    writeln('your string is num now num ',num)
  else
    writeln('error code: ', code);
  readln();
end.