program tobbutasitas
 integer :: a,b
 a=1
 b=2
 if (a<b) then
   kis=a
   nagy=b
   write(*,*) 'Kisebb:',kis,',nagyobb:',nagy
 endif
end program tobbutasitas
!/Anna, Nori
