Урок 18. Задача 1.

Урок 18. Задача 1.

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

var i, c :integer;
    s :string;

begin
  s := '354g78982';
  val(s, i, c);
  if (c <> 0) then
    writeln('error')
  else
    writeln(i);
  readln();
end.