посматрите

[zizu]

надеюсь на вашу помошь...

[EducatedFool]

ну, посмотрел.
Дальше-то что?

[zizu]

надеялся на помошь шо напишите прогу...

[Chudo4258]

Сообщение от zizu

надеялся на помошь шо напишите прогу...

ну шо, написали.... держи...

program Project1;
var x1,x2,y1,y2,x11,y11,x12,y12,x13,y13:real;
procedure Pop(a,b,c,d:real; var n,m:real);
begin
 n:=(a+c)/2;
 m:=(b+d)/2;
end;
begin
readln(x1);
readln(y1);
readln(x2);
readln(y2);
Pop(x1,y1,x2,y2,x12,y12);
Pop(x1,y1,x12,y12,x11,y11);
Pop(x12,y12,x2,y2,x13,y13);
writeln('(',x11:5:3,',',y11:5:3,')');
writeln('(',x12:5:3,',',y12:5:3,')');
writeln('(',x13:5:3,',',y13:5:3,')');
readln
end.