Хоча бувають ще випадки, що відділи освіти наперед розпаковують конверт із завданням і дають кому треба. Потрібно перевіряти цілісність конверта і печаткии перед олімпіадою!!!
Але головним чинником є одні і тіж завдання у різних районах у різні дні!
Ганьба організаторам, котрі невміють чи не хочуть зробити свою роботу належним чином!

1. Якщо ви маєте факти, які підтверджують не порядність де-яких керівників чи вчителів
чому не приймаєте міри.
2. Нехай ваші учні приймуть участь в Відкритій інтернет олімпіаді, займуть хороше місце і
докажуть, що дійсно вони достойні бути переможцями. Гарантую, що задачі, які пропонуються
на інтернет олімпіаді не тиражують та не поширюються по принципу особистої вірності.
Це підтверджується призовими місцями на Всеукраїнській олімпіаді з інформатики, де переможці
інтернет олімпіади стають призерами та переможцями.

На жаль. те про що Ви говорите, може мати місце. І причини цьому - на поверхні. Але повірте, шарлатанством та "діставанням" завдань займаються не діти , а УЧИТЕЛІ, і САМЕ З ТАКИМ ПРОХАННЯМ ВИ ЗВЕРНУЛИСЯ В ПЕРШОМУ СВОМУ ПОСТІ ДО УЧАСНИКІВ ФОРУМУ. Виходить, що ви кращі від тих, хто так робить, лише тому, що не можете дістати завдань (прошу не ображатись, я читав Ваш пост, і все...)

Але проблема має ще одну сторону. В очах тих, хто програв, переможці ЗАВЖДИ все знають наперед, а журі працює погано...
Треба мати чималу мужність, щоб призатися самому собі, що колега з сусідньої школи працює краще, легше вважати, що він дістав (купив) завдання наперед...

Але, ще раз, таке буває. Стикався за всі роки (з 1975) що я в олімпадному русі кілька разів. Бучу піднімав таку, що місця було мало (багато хто може це підтвердити). Не один дрібний ( і не дуже) чиновник, що підторговував олімпіадними завданнями, мав підстави про це пожалкувати... А за те, що олімпіади по одним і тим же завданням в різних районах в різний термін - винні місцеві чиновники. Не можуть провести вчасно - ПІДНІМІТЬ БУЧУ, не бійтеся їх!

Підпрограма це послідовність команд яка (послідовність) часто зустрічається в програмі.
В будь якій програмі написаній на процедурній мові програмування можна обійтися без них, але тільки те саме потрібно буде писати багато разів.

program nskbp;
const n=10;
var a:array [1..n] of integer;
i,nsk,max,b,k,nsd:integer;
f:boolean;
begin
readln(k);
read(a[1]);
max:=a[1];
for i:=2 to k do begin
read(a[i]);
if a[i]>max then max:=a[i];
end;
b:=1;
repeat begin
f:=true; nsd:=max*b;
for i:=1 to k do if nsd mod a[i]<>0 then f:=false;
inc(b);
end;
until f;
writeln(nsd);
end.

Так трохи краще:
program nskbp;
const l=10;
var x,m,n,k,i,d:integer;
a: array [1..l] of integer;

begin
readln(k);
for i:=1 to k do read(a[i]);
m:=a[1]; n:=a[2];
for i:=2 to k do begin
if n>m then begin x:=n; n:=m; m:=x; end;
d:=m*n;
while (m mod n)<>0 do begin
m:=m mod n;
if n>m then begin x:=n; n:=m; m:=x; end;
end;
m:=trunc(d/n);
if i<k then n:=a[i+1];
end;
writeln(m);
end.

Додано (11.12.2009, 21:56)
---------------------------------------------

NSK.PAS
Program NMSK;
Var
i,j,n:byte;
nsd,a,z1,z2:integer;
nsk:longint;
Begin
assign(input,'nsk.dat');
assign(output,'nsk.sol');
rewrite(output);
reset(input);
readln(n);
read(nsd);
for i:=2 to n do
begin
read(a);
z1:=nsd;z2:=a;
while nsd<>a do
if a<nsd then nsd:=nsd-a else a:=a-nsd;
nsk:=round(z1*z2/nsd);
nsd:=nsk
end;
writeln(nsk);
close(input);
close(output)
End.

NSK.SOL
180