Titik Koordinat

uses wincrt;
var x1,y1,x2,y2:integer;
x3,y3:real;
begin
write('(x1,y1)=');read(x1,y1);
write('(x2,y2)=');read(x2,y2);
x3:=(x1+x2)/2;
y3:=(y1+y2)/2;
write('(x3,y3) =','(',x3:2:0,',',y3:2:0,')');
end.