getstring([H|T]) :- get0(H), (not(H=10), getstring(T); !).

pobr_odp(Znak) :- write(Znak), getstring([H|T]), pobr_odp_1(H).
pobr_odp_1(84) :- !.
pobr_odp_1(116) :- !.
pobr_odp_1(78) :- !, fail.
pobr_odp_1(110) :- !, fail.

pobr_odp_1() :- write('[Wprowadz T lub N]: '), getstring([H|T]), pobr_odp_1(H).