To parakatw programma FORTRAN exei lathoi. Diwrthwste ta kai na to
epistrepsete me e-mail.

SCF



      PROGRAM EXAM1
      implicit none
      integer i, n, j, k
c
      do i = 1, 100
         n = 50 - i
         if(n.eq.0) goto 100
      enddo
c
      do j=1,10
         do k = 1, 10
100         continue
            m = j*k
            if(m.ne.0) then
               print*,m,'  prepei na grapsw 100 fores oti 
    # tha mathw FORTRAN'
            endif
         enddo
      enddo
      stop
      end