TORERO

Questo è il programma della risoluzione del terzo problema delle olimpiadi regionali che si sono tenute qualche giorno fa, esso è risolto con il metodo di Monte Carlo quindi casuale:
program torero;
var i,o:text; m,n,q,h,k,j:longint;
begin
randomize;
assign(i,'input.txt');reset(i);
assign(o,'output.txt');rewrite(o);
read(i,n);read(i,m);read(i,q);
for j:=1 to m do begin
read(i,h);read(i,k);
end;
writeln(o,trunc(random(q+1)));
close(i);close(o);
end.
Il prof. ha chiesto la restituzione in un programma eseguibile!!