Program prg
       integer massiv(5,5)
       integer i, j
       integer sum
       !Вбивать данные нужно в формате "4 2 5 2 5", затем нажать enter и писать следующую строку и т.д.
       print*,'Vvedite massiv 5x5'
       do i =1, 5
          read*, massiv(i, :)
       enddo

       sum = 0
       do i = 1, 5
          print*,massiv(i,:)
          do j = 1, 5
             if(i.GE.j) then
                sum = sum + massiv(i, j)
             endif
          enddo
       enddo

       print*, 'Summa = ', sum
       end