Составьте программку , определяющую , является ли введенное слово числом. Pascal.

Любым

PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018
Внимание! Если программка не работает, обновите версию!

begin
  var r:real;
  real.TryParse(ReadlnString,r).Println
end.

Образцы
-345.432
True

+253432
True

1.52e-14
True

15,3
False

Var s: string; I,n,k,L:longint; Begin Readln(s); L:=length(s); If s[1]lt;gt;'-' then begin For i:=1 to L do If s[i] in ['1'...'9'] or (s[i]='.' and s[i+1]lt;gt;'.') then inc(k); If klt;gt;L then writeln('слово') else writeln('число'); End else begin For i:=2 to L do If (s[i] in ['1'...'9']) or (s[i]='.' and s[i+1]lt;gt;'.')then inc(k); If klt;gt;(L-1) then writeln('слово') else writeln('число'); End; End.