program egyutasitas
 integer :: a,b
 a=1
 b=2
 if (a<b) write(*,*) 'Kisebb:', a
end program egyutasitas
!/Anna, Nori
