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

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

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

var N,Code: integer;
    s: string;

begin
  writeln('vvedi stoky');
  readln(s);
  Val(s, N, Code);
  writeln(N, ' | Error code: ', Code);
  readln();
end.