Задание 1 Урок 18

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

Задание 1 Урок 18

var
  V, Code : Integer;
  s: string;

function myIntVal(S: string): integer;
var V, Code: integer;
begin
 Val(S, V, Code);
 if(code = 0) then
    writeln(V)
 else begin
    writeln('Error: [' , S , '] ne chislo! ');
    Exit;
 end;
 result := V;
end;
  begin
   writeln('vvedite chislo:');
   readln(s); // получаем строковое представление числа
   myIntVal(s);
   readln;
  end.