1 семестр / Лабораторная 1 / Lab1_2_var12

program Lab1_2_var12;
var 
    Str: string;	{переменная строки}
    V: real;	{строка преобразованная в числовой вид}
    err: integer;	{переменная содержит индекс символа, который} {не получилось преобразовать в число}
begin
  write('Введите строку: ');	{ввод с клавиатуры строку}
  readln(Str);	{Присваиваем введенную строку переменной} 
  {удаляем пробелы в начале строки}
  while (length(Str) > 0) and (Str[1] = ' ') do delete(Str, 1,1);
  {удаляем пробелы в конце строки}
  while (length(Str) > 0) and (Str[length(Str)] = ' ') do delete(Str, length(Str), 1);
  {преобразование строкового значения в его числовое представление}
  val(Str, V, err);
  if
    err > 0 then write('Эта строка не является правильной записью вещественного числа.')
                    {если есть символ который не смогли преобразовать в число,}
                    {то строка не является правильной записью}
    else
    	write('Эта строка является правильной записью вещественного числа.');
          {в противном случае строка не является правильной записью}
readln();
end.