program aritmetikaif
 integer :: a,b
 a=18
 b=8

 if (a-b) 51,52,53

  51 write(*,*) b-a
  52 write(*,*) a
  53 write(*,*) a-b

end program aritmetikaif
!/Anna, Nori
