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

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