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

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

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

var x:string; i,b:integer;
begin
  readln(x);
  for  i:=1 to length(x) do
    if (x[i]>='0')and(x[i]<='9') then
      b+=1
    else
    begin
      write('oshibka');
      break;
    end;
  if b=length(x) then
    write(x);
  readln();
end.