upaljac3:-write('Unosi reci, za kraj kucati dosta'),
            nl,repeat,read(X),write(X),nl,
            X=dosta,write('Kraj').