Program Mencari Titik Tengah Pascal

Program ini mencari titik tengah antara 2 titik koordinat
Coding Pascal :


Program TitikTengah;

type titik = record
     x,y : real ;
end;

var t1,t2,tengah : titik ;

begin

     write('Masukan titik X awal : ');
     read(t1.x);

     write('Masukan titik Y awal : ');
     read(t1.y);

     write('Masukan titik X akhir : ');
     read(t2.x);

     write('Masukan titik Y akhir : ');
     read(t2.y);

     tengah.x := (t1.x+t2.x)/2;
     tengah.y := (t1.y+t2.y)/2;

     write(tengah.x,tengah.y);

end.