Advertisement
Varvara_Golovnova

Untitled

Dec 18th, 2024
11
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.36 KB | None | 0 0
  1. var
  2. x1,x2,x3,y1,y2,y3,maxx,maxy : longint;
  3. begin
  4. readln(x1, y1);
  5. readln(x2, y2);
  6. readln(x3, y3);
  7. maxx:=x1; maxy:=y1;
  8. if x2<minx then begin maxx:=x2; maxy:=y2; end;
  9. if x3<minx then begin maxx:=x3; maxy:=y3; end;
  10. if y2<miny then begin maxx:=x2; maxy:=y2; end;
  11. if y3<miny then begin maxx:=x3; maxy:=y3; end;
  12. writeln(maxx,' ',maxy);
  13. end.
  14.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement