9 lines
179 B
ObjectPascal
9 lines
179 B
ObjectPascal
var i,j,k,l,m,n:longint;
|
|
a:array[0..1000000,1..2] of longint;
|
|
begin
|
|
assign(input,'candy10.in');
|
|
reset(input);
|
|
read(i,i,i,i);
|
|
for i:=1 to 1000000 do read(a[i,1],a[i,2]);
|
|
end.
|