Урок 17 (Решенная задача номер 1)

Урок 17 (Решенная задача номер 1)

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

var s : string;
    I, Coder : integer;

begin
  writeln('vvedite stroky');
  readln(s);
  val(s, I, Coder);
  if (coder = 0) then
    write(s)
  else write('osibka v ', coder, ' elemente stroki');
end.