Algoritma Program Titik Tengah

Program Titik_Tengah

{Dibaca dua buah titik kemudian tampilkan titik tengahnya}

Deklarasi : 

type Titik : record < x : real , y : real >

        p1,p2,p3:Titik

Algoritma :

        read(p1.x, p1.y, p2.x, p2.y);

        p3.x ? (p1.x + p2.x) / 2

        p3.y ? (p1.y + p2.y) / 2

        write(p3.x, p3.y)