Алгоритмы на графах / flows / GEN

const
maxn = 100;

function get_param_int(index: integer): integer;
var
s: string;
res, code: integer;
begin
s := paramstr(index);
val(s, res, code);
get_param_int := res;
end;

var
n, m, i, x, y, z: integer;
a: array [1..maxn, 1..maxn] of boolean;

begin
randomize;
fillchar(a, sizeof(a), false);

n := get_param_int(1);
m := get_param_int(2);

writeln(n, ' ', m);

for i := 1 to m do
begin
x := 1;
y := n;

while a[x, y] do
begin
x := 1 + random(n);
y := x;
while x = y do
y := 1 + random(n);
end;

a[x, y] := true;
z := 1 + random(1000);
writeln(x, ' ', y, ' ', z);
end;
end.