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

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

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

program U17Z1;
var s: string;
    i,code: integer;
begin
  writeln('vvedite stroku');
  readln(s);
  val(s,i,code);
  if (code<>0) then
    writeln('oshibka v poz: ',code)
  else
    writeln('chislo = ',i);
  readln();
end.