Program AritmeticaInteri
implicit none

integer :: I1,i2
real :: x1,x2

! le operazioni tra interi vengono fatte con le regole
! dell'aritmetica intera (troncamento dei quozienti)
! tra un intero e un reale, in reale 
! (prima si converte l'operatore intero, e poi si fa l'operazione)


I1=3/2
write(6,*) "1)",i1 

x1=3/2
write(6,*) "2)",x1 

I1=3./2.
write(6,*) "3)",i1 

x1=3./2.
write(6,*) "4)",x1 

x1=3./2
write(6,*) "5)",x1 

x1=3/2*2
x2=3*2/2
write(6,*) "6)",x1,x2

end