program deljenje 3
real a,b,kol
print*,'vnesi deve stevili'
read*,a,b
c=1
   do while(b.eq.0.and.c.le.3)
   print*,'ponovi'
   read*,b
   c=c+1
enddo
if(b.eq.0)then
   print*,'adijo'
else
   kol=a/b
   print*,'kolicnik = ',kol
endif 
end