Advertisement
Varvara_Golovnova

Untitled

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