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