program page280
 implicit none
 integer::number=12345
 real::alpha=87.6543
 character(25)::form_1='(1x,i10,f10.2,"---")',&
                form_2='(1x,i10,f10.2:"---")',&
                title*8='Exercise'
 print*,"Computer science -- ",title," 5.3"
 print*,number,number+1
 print*,"Alpha =",alpha," Number =",number
 print*
 print*,"Gap A"
 print '(" Computer science -- Exercise",f4.1)',&
       3*2.1-1.0
 print 10, title, 5.3
10 format(" Computer science -- ",a,f5.2)
 print '(1x,a,f4.1)', "Computer science", 5.3
 print '(" Computer science -- ", a10,f6.3)', &
       title, 5.3
 print*,"Gap B"
 print 20, title, 5.3
20 format(" Computer science -- ",a2,f3.1)
 print 30, number, number+1,alpha,alpha+1,&
           alpha+2
30 format(1x,2i7,f10.5,f10.3,f10.0)
 print '(1x,i5,4x,i4,t20,i6)',number, &
       number+1,number+2
 print*,"Gap C"
 print 40,number,alpha,number+1,alpha+1
40 format(1x,i5,f7.4/1x,i5,e12.5)
 print '(1x,i10,f10.3)',number, alpha, &
       number+1,alpha+1
 print form_1, number,alpha,number+1,alpha+1
 print form_2, number,alpha,number+1,alpha+1
 print '(1x,i5,a2,i6,/1x,13("="))',&
        number,"=",12345
 print*,"Gap D"
 print 50, number,alpha,number, alpha
50 format(3/ 2(1x,i6 // 1x,f6.2) 3/ " ******")
 print 60, number, alpha,number,alpha,number, &
          alpha
60 format(1x,i6,f7.2,1x,i5,f6.1)
 print*,"Gap E"
 print 70, number, alpha,number,alpha,number, &
          alpha
70 format(1x,i6,f7.2,(1x,i5,f6.1))
 print '(1x, 10("*"), a, 10("*"))', "The End"
end program page280