program max_stevilo real max integer a(10) read*,a max=a(1) do i=2,10 if(max.lt.a(i)) max=a(i) enddo print*,'najvecje stevilo=',max end