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

Программа считает числом выражение, если:

- знак минус или плюс находятся перед цифрами;

- точка находится на втором или предпоследнем месте;

- в записи кроме знаков "+", "-" и точки имеются только цифры 0 ... 9.

program digits;

var s: string;

flag, p: byte;

begin

write ('Введите строку: ');

readln (s);

p: = 1;

for i: integer: = 1 to length (s) do

begin

case ord (s[i]) of

43,45: if i = 1 then flag : = 1 else flag : = 0;

46: if (i>1) and (i
48 ... 57: flag : = 1

else flag:=0

end;

p:=p * flag

end;

writeln ();

if p = 1 then writeln ('Строка может быть десятичным числом.')

else writeln ('Строка не может быть десятичным числом.')

end.