program egybeif 
 integer :: a,b
 a=1
 b=4
 if (a<b) then
   if (a<(b/2)) then
     b_2=b/2
     write(*,*) 'A ket szam kulonbsege nagyobb, mint',b_2
   endif
 endif
end program egybeif
!/Anna, Nori
