С клавиатуры вводится строка. Проверьте, может ли эта строка быть записью числа в десятичной системе счисления. Учтите,

Программа считает числом выражение, если: - знак минус или плюс находятся перед цифрами; - точка находится на втором или предпоследнем месте;- в записи кроме знаков \"+\", \"-\" и точки имеются только цифры 0..9.

program digits;var s: string;flag, p: byte;beginwrite(\'Введите строку: \');readln(s);p:= 1;for i: integer:= 1 to length(s) dobegincase ord(s[i]) of43,45: if i = 1 then flag := 1 else flag := 0;46: if (i>1) and (i<length(s)) then flag := 1 else flag := 0; 48..57: flag := 1 else flag:=0end;p:=p * flagend;writeln();if p = 1 then writeln(\'Строка может быть десятичным числом.\') else writeln(\'Строка не может быть десятичным числом.\') end.