Помогите решить задачи по Паскалю

1)
program N53418953_1;
var a:array[1..1000] of longint;
n,k,m:integer;
s,x:longint;
begin
write('Введите размер массива N: '); readln(n);
for k := 1 to n do begin
write('Введите А (',k,'): '); readln(a[k]); end;
s:=0;
for k:=1 to n do begin
m:=0; x:=a[k];
repeat
x:=x div 10;
inc(m);
until x=0;
if not odd(m) then s:=s+a[k];
end;
writeln('Результат = ',s);
readln;
end.

2)
program N53418953_2;
var a,b:array[1..1000] of integer;
n,k,m:integer;
begin
write('Введите размер массива N: '); readln(n);
for k := 1 to n do begin
write('Введите А (',k,'): '); readln(a[k]); end;
m:=0;
for k:=1 to n do
if a[k] mod 10 = 3 then begin
inc(m);
b[m]:=a[k]
end;
writeln('Результирующий массив: ');
for k:=1 to m do
write(b[k]:8);
readln;
end.

3)
program N53418953_3;
var a:array[1..100,1..100] of integer;
b:array[1..100] of integer;
n,m,i, j : integer;
begin
write('Введите размер массива N, M: '); readln(n,m);
for i := 1 to n do
for j := 1 to m do begin
write('Введите А (',i,',',j,'): '); readln(a[ i, j ]); end;
for j := 1 to m do
for i := 1 to n do
if (i = 1) or (a[ i, j ] > a[ b[ j ] , j ]) then b[ j ] := i;
writeln('Результирующий массив: ');
for j := 1 to m do
write(b[ j ]:8);
readln;
end.

За 200р - пожалуйста (на почту или в агент)...

150 рублей) Кто меньше. А вообще задачи простые.