Программа на языке Паскаль

Код программы:

program Neylon;
type arr=array[1..20] of integer;
var a,b:arr;
k,l:integer;

procedure input(var n:arr; var x:integer; name:char);
var i:integer;
begin
WriteLn('Размер массива ',name,' = ');
ReadLn(x);
for i:=1 to x do
begin
WriteLn(name,'[',i,'] = ');
readLn(n[i ]);
end;
end;

function process(const n:arr; const x:integer):integer;
var i,sum:integer;
begin
sum:=0;
for i:=1 to x do
if i mod 2 = 0 then
sum:=sum+n[i ];
process:=sum;
end;

begin
input(a,k,'A');
input(b,l,'B');
WriteLn('Сумма чётных элементов первого массива = ', process(a,k) );
WriteLn('Сумма чётных элементов второго массива = ', process(b,l) );
end.

Пример работы программы:

Размер массива A = 3
A[1] = 1
A[2] = 2
A[3] = 3
Размер массива B = 4
B[1] = 1
B[2] = 2
B[3] = 3
B[4] = 4
Сумма чётных элементов первого массива = 2
Сумма чётных элементов второго массива = 6

щас ван сек почти дописала.. . с динамическими массивами устроит?? ?
-----------------
усе)) )

{-R}
program qwerty;
uses Crt;
type
Dynarr=array[1..1] of word;
DynArrPtr=^DynArr;
var
arr1,arr2:DynarrPtr;
sz,i,count1,count2:word;
sum1,sum2:integer;
begin
ClrScr;
writeln('Vvedite kolichestvo elemetov pervogo massiva');
readln(count1);
writeln('Vvedite elementy pervogo massiva');
Sz:=Count1*SizeOf(Word);
GetMem(Arr1,Sz);
for i:=1 to count1 do ReadLn(arr1^{i});
writeln('Vvedite kolichestvo elemetov vtorogo massiva');
readln(count2);
writeln('Vvedite elementy vtorogo massiva');
Sz:=Count2*SizeOf(Word);
GetMem(Arr2,Sz);
for i:=1 to count2 do ReadLn(arr2^{i});
sum1:=0;
sum2:=0;
for i:=1 to count1 do if (arr1^{i} mod 2=0) then inc(sum1,arr1^{i});
for i:=1 to count2 do if (arr2^{i} mod 2=0) then inc(sum2,arr2^{i});
Write('Summa elementov pervogo = ');WriteLn(sum1);
Write('Summa elementov vtorogo = ');WriteLn(sum2);
ReadLn;
end.

Ты хочешь чтобы тебе бесплатно помогли?
Вот потом приходят ребята устраиваться на работу. Их спрашиваешь, ты чему учился пять лет? А он незнает что ответить.. . Учи паскаль давай. Пригодиться.
А аватар у тебя понтовый. Но внешность как известно обманчива )))).

Объявляются переменные, пишутся циклы обхода массивов с проверкой на делимость, суммируется.