program deljenje real a,b print*,'vnesi dve stevili' read*,a,b if(b.eq.0)then print*,'imenovalec = 0' else print*,'kolicnik =',a/b endif end