program sum_of_even_numb

implicit none

! program wyswietla sume dowolnej ilosci liczb parzystych


integer :: max, i, suma

write(*,*)'Ile liczb parzystych zsumowac?'
read(*,*) max


suma = 0
do i = 1, max 

   suma = suma + i*2

end do

write(*,*) 'Suma', max, 'liczb parzystych wynosi', suma

end