program test_zmiennych

implicit none

integer :: i,j,k
real(kind=kind(1.0d0)) :: x,y,z


i=5; j=10


k=j/k; write(*,*)k

k=i/j; write(*,*)k

k=1/3; write(*,*)k


x=5.0; y=10.0


z=y/x; write(*,*)z

z=x/y; write(*,*)z

z=1.0/3.0; write(*,*)z

z=1.0d0/3.0d0; write(*,*)z

z=1/3; write(*,*)z


end program test_zmiennych