program nd2
                character*12 pav
                character*6 fak
                integer grupe
                real paz
                k=0
                kl=0
                sg=0.0
                sk=0.0
        open (1,file='db1.dat',status='old')
        open (2,file='db2.dat',status='old')
        open (3,file='db3.dat',status='old')
        open (4,file='vienas.dat',status='unknown')
        open (5,file='kitas.dat',status='unknown')
                do i=1,3
                   read (1,10),pav,fak,grupe,paz
                   if(paz.LE.8) then
                                    k=k+1
                                    write(4,10)pav,fak,grupe,paz
                                    sg=sg+paz
                                else
                                    kl=kl+1
                                    write(5,10)pav,fak,grupe,paz
                                    sk=sk+paz
                        end if

10              format (A12,2X,A6,3X,I1,1X,F3.1)
                enddo
                do i=1,3
                   read (2,10),pav,fak,grupe,paz
	print *, pav,'_', fak,'_', grupe,'_', paz
                   if(paz.LE.8) then
                                    k=k+1
                                    write(4,10)pav,fak,grupe,paz
								  sg=sg+paz
                                else
                                    kl=kl+1
                                    write(5,10)pav,fak,grupe,paz
                                    sk=sk+paz
                        end if
                enddo
                do i=1,2
                   read (3,10),pav,fak,grupe,paz
                   if(paz.LE.8) then
                                    k=k+1
                                    write(4,10)pav,fak,grupe,paz
                                    sg=sg+paz
                                else
                                    kl=kl+1
                                    write(5,10)pav,fak,grupe,paz
                                    sk=sk+paz
                        end if
                enddo
                rewind(4)
                rewind(5)
                
        end