Перевести строковое представление числа в числовое представление - Free Pascal

Формулировка задачи:

Программа получает запись действительного числа в виде строки. Входная переменная, то есть, имеет тип данных String. Программа переводит строковое представление числа в числовое представление. Выходная переменная должна иметь тип данных Real. Для проверки полученная переменная умножается на два, результат выдается в консольное окно.

Решение задачи: «Перевести строковое представление числа в числовое представление»

Листинг программы

var
  s : string;
  r : real;
  code : integer;
begin
  readln(s);
  Val(s, r, Code);
  if Code > 0 then writeln('Строка не является представлением вещественного числа')
  else writeln('Проверка: ', 2*r);
end.

Объяснение кода листинга программы

Объявляются три переменные: s (строка), r (реальное число), code (целое число).
С помощью функции readln() в переменную s считывается строка из стандартного ввода.
С помощью функции Val() происходит преобразование строки в реальное число с плавающей точкой, результат сохраняется в переменной r, а возвращаемое значение функции (код ошибки) сохраняется в переменной code.
Если код ошибки больше нуля, то выводится сообщение об ошибке.
Если код ошибки равен нулю, то выводится сообщение с проверкой (2*r), где 2 - это коэффициент, умножающий полученное число на два.