Нужно написать программы в Паскале! Массивы! Срочно! Помогите!

ты еще весь задачник в одном вопросе выложи
1.
const m=10;
var i:integer;
a:array [1..m]of real;
s,d:real;
begin
randomize;
for i:=1 to m do a:=random(100);
for i:=1 to m do writeln(i,'- ',a:5:3);
s:=0; d:=1;
for i:=1 to m do
begin
s:=s+a;
if d<>0 then d:=d*a;
end;
writeln('Syma=',s:5:3);
writeln('Dobutok=',d);
readln;
end.

2.
const m=10;
var i:integer;
a:array [1..m]of integer;
chet,nechet:integer;
begin
randomize;
for i:=1 to m do a:=random(10);
for i:=1 to m do writeln(i,'- ',a);
chet:=0; nechet:=0;
for i:=1 to m do
begin
if a mod 2 = 0 then chet:=chet+a else nechet:=nechet+a;
end;
writeln('Chettie=',chet);
writeln('Nechetnie=',nechet);
readln;
end.

3.
const m=10;
var i:integer;
a:array [1..m]of integer;
Schet:integer;
begin
randomize;
for i:=1 to m do a:=random(10);
for i:=1 to m do writeln(i,'- ',a);
Schet:=0;
i:=2;
while i<=10 do
begin
Schet:=Schet+a;
i:=i+2;
end;
writeln('Symma=',Schet);
readln;
end.

4.
const n=10;
var i:integer;
a:array [1..n]of integer;
S:integer;
begin
randomize;
for i:=1 to n do a:=random(1000);
for i:=1 to n do writeln(i,'- ',a);
S:=0;
i:=1;
while i<=10 do
begin
if a<=100 then S:=S+a;
i:=i+1;
end;
writeln('Symma=',S);
readln;
end.

5.
const n=10;
var i:integer;
b:array [1..n]of integer;
S,d:integer;
begin
randomize;
for i:=1 to n do b:=5-random(10);
for i:=1 to n do writeln(i,'- ',b);
S:=0;
d:=1;
i:=1;
while i<=10 do
begin
if b>=0 then S:=S+b else d:=d*b;
i:=i+1;
end;
writeln('Symma=',S);
writeln('Proizved=',d);
readln;
end.