integer ogno
real notort

open(8,file"sinif.txt",form="formatted",action="readwrite")
open(9,status="scratch",form="formatted", action="readwrite")

do
read(8,1,end=145)ogno,notort
end do

145 rewind(8)

do
read(8,1,end=144)ogno,notort
1 format(I4,F5.1)

if(ogno==3)then
backspace(8)
notort=90
write(*,*)ogno,notort
end if

end do

144 rewind(9)
backspace(8)

do
read(9,1,end=146)ongo,notort

if(ogno>3)then
write(8,1)ogno,notort
end if

end do

146 rewind(8)

do
read(8,1,end=147)ogno,notort
write(*,1)ogno,notort
end do

147 close(8)
close(9)
end