задача 1 урок 18

задача 1 урок 18

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

Решение

program task_1_lesson18;
var
  s: string;
  v, code: integer;
begin
  readln(s);
  val(s, v, code);
  if code = 0 then
    write(v)
  else
    write('ERROR');
  readln
end.