fork(1) download
  1. {Реалізація учасника Середенка Олександра, з дрібними модифікаціями}
  2.  
  3. var m:array[0..4999, 0..4999] of integer;
  4. k,i,j,x,y,x1,y1,r,p: longint;
  5.  
  6. begin
  7. readln(p);
  8. readln(x,y);
  9. r:=0;
  10. for k:=1 to p-1 do begin
  11. readln(x1, y1);
  12. if x1>x then begin
  13. for i:=x to (x1-1) do m[i, y]:= m[i,y]+1;
  14. end;
  15. if x1<x then begin
  16. for i:=x downto (x1+1) do m[i, y]:= m[i,y]+1;
  17. end;
  18. if y1>y then begin
  19. for i:=y to (y1-1) do m[x,i]:=m[x,i]+1;
  20. end;
  21. if y1<y then begin
  22. for i:=y downto (y1+1) do m[x,i]:=m[x,i]+1;
  23. end;
  24. x:=x1;
  25. y:=y1;
  26. end;
  27. for i:=0 to 4999 do
  28. for j:=0 to 4999 do
  29. if m[i,j]>1 then
  30. r:=r+1;
  31. writeln(r);
  32. end.
  33.  
Success #stdin #stdout 0.14s 49104KB
stdin
5
0 1
3 1
3 2
2 2
2 0
stdout
1