fork download
  1. var n,i:byte;
  2. x,y: real;
  3. max,mix,may,miy:real;
  4. begin
  5. readln(n);
  6. for i:=1 to n do
  7. begin
  8. readln(x,y);
  9. if i=1 then begin
  10. max:=x;mix:=x;may:=y;miy:=y;
  11. end else
  12. begin
  13. if max<x then max:=x;
  14. if mix>x then mix:=x;
  15. if may<y then may:=y;
  16. if miy>y then miy:=y;
  17. end;
  18. end;
  19. writeln("dinh tren trai: (",max,",",miy,") ;");
  20. writeln("dinh duoi phai: (",mix,",",may,") ;");
  21. readln;
  22. end.
Runtime error #stdin #stdout #stderr 0s 9136KB
stdin
5
stdout
Standard output is empty
stderr
./prog: attempt to read past end of Input (error #454 at 402dc9)