program Tacka

    print*,'Unesi koordinate centra kruznice'
    read*,kx,ky
    print*,'Unesi poluprecnik kruznice'
    read*,r
    print*,'Unesi x i y koordinate tacke T'
    read*,tx,ty
    deltax=kx-tx
    deltay=ky-ty
    
    hipT=deltax**2+deltay**2
    hipT=sqrt(hipT)
    
    if(hipT>r)then
    print*,'Data tacka T ne pripada krugu'
    else if(hipT==r)then
    print*,'Data tacka T se nalazi na kruznici'
    else
    print*,'Data tacka T pripada krugu'
    end if
    print*,'T (',tx,', ',ty,')'
    print*,'K (',kx,', ',ky,')'
    pause

    end program Tacka