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

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

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

var
  I, Code : Integer;
  R: real;
  S: string;

begin
 writeln('Vvedite chislo');
 readln(S); //записываем число/прочие символы строкой
 Val(S, I, Code);
 if (Code=0) then
   writeln(I)
 else
   begin
   Val(S, R, Code);
   if (Code=0) then
     writeln(R)
   else
     writeln('Error');
   end;
 readln;
 end.