Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var x1,y1,x2,y2, x3,y3,x4,y4:Longint;
- begin
- readln(x1,y1,x2,y2);
- if x1>=x2 then
- begin
- x3:=x2;
- x4:=x1;
- end
- else begin
- x3:=x1;
- x4:=x2;
- end;
- if y1>=y2 then
- begin
- y3:=y1;
- y4:=y2;
- end
- else begin
- y3:=y2;
- y4:=y1;
- end;
- writeln(x3, ' ', y3, ' ', x4, ' ', y4);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
