fortranas

        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='H:\VGTU\Programavimas\2\db1.dat',status='old')
        open (2,file='H:\VGTU\Programavimas\2\db2.dat',status='old')
        open (3,file='H:\VGTU\Programavimas\2\db3.dat',status='old')
        open (4,file='H:\VGTU\Programavimas\2\vienas.dat',status='new')
        open (5,file='H:\VGTU\Programavimas\2\kitas.dat',status='new')
                do i=10
                   read (1,10),pav,fak,grupe,paz
                   if(paz.LE.8) then
                                    k=k+1
                                    write(4,11)pav,fak,grupe,paz
                                    sg=sg+paz
                                else
                                    kl=kl+1
                                    write(5,11)pav,fak,grupe,paz
                                    sk=sk+paz
                        end if
                end do
10              format (A12,A6,l1,f5.2)
11              format (A12,A6,l1,f5,2)
        end