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

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

var
intChislo, Code : Integer;
rChislo: real;
s: string;
begin
  writeln('ENTER');
  readln(s);
  Val(s, intChislo, Code);
  if intChislo=0 then
    writeln('Error')
  else
    writeln('This is the number');
  readln();
end.

Вывод консоли:

ENTER
1
This is the number