pob_licz(Liczba) :- put(58), getstring(S), ost(E,S), usun_p(E,S,S1),      nl, zaczynaj(S1,Liczba).

zaczynaj([32|Ogon],Liczba) :- !, zaczynaj(Ogon,Liczba) .

zaczynaj([45|Ogon],Liczba) :- !, dalej(Ogon,n,-1,0,Lic zba).
zaczynaj(String,Liczba) :- dalej(String,n,1,0,Liczba).

dalej([Cyfra|Ogon],n,Skala,Czesc_licz,Liczba) :-kod(Cyfra,Wartość),!,      Nowa_Czesc_licz is Czesc_licz*10 + Wartość, dalej(Ogon,n,Skala,Nowa_Czesc_licz,Liczba).

dalej([46|Ogon],n,Skala,Czesc_licz,Liczba) :- !,                           dalej(Ogon,t,Skala,Czesc_licz,Liczba).

dalej([Cyfra|Ogon],t,Skala,Czesc_licz,Liczba) :-kod(Cyfra,Wartość), !,     Nowa_Czesc_licz is Czesc_licz*10 + Wartość, Nowa_Skala is Skala*10, 
dalej(Ogon,t,Nowa_Skala,Nowa_Czesc_licz,Liczba).

dalej([],_,1,Liczba,Liczba) :- !. 

dalej([],_,-l,Czesc_licz,Liczba) :- !,  
Liczba is -(Czesc_licz).

dalej([],t,Skala,Czesc_licz,Liczba) :- !,
Liczba is Czesc licz/Skala.

dalej(_,_,_,_,Liczba) :-                                
write('Wprowadź liczbę :'), pob_licz(Liczba).

kod(48,0). 
kod(49,l). 
kod(50,2). 
kod(51,3). 
kod(52,4). 
kod(53,5). 
kod(54,6). 
kod(55,7). 
kod(56,8). 
kod(57,9).