SUBROUTINE KRI
	WRITE(*,10)
10	FORMAT(1X,'To ni nobena zmaga! S tako majhnim stevilom'/,
     *  1x,'zvezdic se ne igra.')
C	PAUSE '<ENTER>'
	write(*,*)'<ENTER>'
	read(*,*)
	RETURN
	END