Program Koordinat Titik Tengah

Program Menghitung_Koordinat_Titik_Tengah_Dua_Titik;
Uses Wincrt;
Var
x1,y1,x2,y2,x,y:real;
Begin
Write ('Masukkan nilai x1: ');readln (x1);
Write ('Masukkan nilai y1: ');readln (y1);
Write ('Masukkan nilai x2: ');readln (x2);
Write ('Masukkan nilai y2: ');readln (y2);
x:=(1/2)*(x1+x2);
y:=(1/2)*(y1+y2);
Writeln ('Koordinat titik tengah=(x,y)= ',('('),(x):5:2,(','),(y):5:2,(')'));
End.