program luas segitiga dengan koordinat

program luas_segitiga
    real x1, x2, x3, y1, y2, y3, luas
    print *, "masukkan x1 : "
    read *, x1

    print *, "masukkan y1 : "
    read *, y1

    print *, "masukkan x2 : "
    read *, x2

    print *, "masukkan y2 : "
    read *, y2

    print *, "masukkan x3 : "
    read *, x3

    print *, "masukkan y3 : "
    read *, y3

    luas = (((x2 - x1) * (y3 - y1)) - ((x3 -x1) * (y2 - y1))) * 0.5;
    PRINT *,"luas segitiga = ", luas
end program luas_segitiga