KRI.FOR


1
2
3
4
5
6
7
8
9
10

	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