Turbo Pascal HELP

E ovako znam da je glupo ali trazim nekog ko zna radit u pascalu da mi pomogne oko tog programa inace moram ucit citavo ljeto e ovako izgleda jedan zadatak

1.Napisati Program koji ispisuje parne brojeve manje ili jednake od 300!

bio bi zahvalan na pomoci

http://gamers.ba/forum/7/6553/pascal-/

var
n,i,j,min,max,temp:integer;
niz:array[1..100] of integer;

begin


{UNOS PODATAKA I PRORACUN:}

write('Koliko brojeva zelite: '); readln(n);
if n>100 then n:=100;
for i:=1 to n do
begin
write('#',i,' Unesite broj:'); readln(niz);
end;

for i:=1 to n-1 do {sortiranje}
for j:=i+1 to n do
if niz<niz[j] then
begin
temp:=niz;
niz:=niz[j];
niz[j]:=temp;
end;


{ISPIS PO POTREBI:}

writeln;
writeln('Najveci broj je: ',niz[1]);
writeln('Najmanji broj je: ',niz[n]);


writeln('Parni brojevi: ');
for i:=n downto 1 do if niz mod 2 = 0 then writeln(niz);


writeln('Negativni brojevi: ');
for i:=1 to n do if niz<0 then writeln(niz);

readln;
end.


dl:
www.geocities.com/gc_an0/gamers.pas


to je to ja mislim...

Google it motherfucker

da i ja bi vako uradio xD

ako ti jos sta treba mogu ti skenirati svou svesku ima svakavih zadataka pa mozda ti pomogne

ma imam ja zadatke koji ce biti samo treba ih sve naucit pa sad ne znam dal je bolje da ih naucim napamet il...

ma jok nemoj nis napamet uciti spetljace ti se

idi po formulama nauci kako zadatak ide i sta kad treba to ti je najlakse