Fensy Primeri

Kao sto svaka budala zna test primeri 16 i 18 fensi koda **** u mozak i zato vas molimo da nam ih ne racunate od sada pa na daljnje ili bi ste mogli da nam ih lepo posaljete na CrazyManUtdFan@yahoo.com ovo je moj kod:

var m,n,i:longint;
a:array[1..3]of longint;

procedure x3(x:longint);
var
pom:longint;
begin
pom:=x mod 3;
case (pom) of
1:begin
a[1]:=x;
a[2]:=x+1;
a[3]:=x-1;
end;
2:begin
a[1]:=x+1;
a[2]:=x-1;
a[3]:=x;
end;
end;
if odd(a[1]) then
begin
pom:=a[1];
a[1]:=a[3];
a[3]:=pom;
end;
end;

begin
readln(n,m);
if ((m-1) mod 3) = 0 then begin
x3(m-2);
for i:=n to m-4 do if i mod 2 =0 then writeln(i); if m mod 2 = 0 then writeln(m);
for i:=1 to 3 do writeln(a[i]);
for i:=n to m-4 do if i mod 2 = 1 then writeln(i); if m mod 2 = 1 then writeln(m);
end
else
begin
x3(m-1);
for i:= n to m-3 do if i mod 2 =0 then writeln(i);
for i:=1 to 3 do
writeln(a[i]);
for i:=n to m-3 do if i mod 2 = 1 then writeln(i);
end;
end.


Hvala na saradnji!


EDIT: Bez psovki.

moze li se znati koji su test primjeri 1 i 16 ?

Za 16. test primer je rezultat 0, sto znaci da nema resenja, pa proveri jos jednom taj deo u tvom kodu...