var
A,B,C:array [1..20] of integer;
n,k,l,i:integer;
begin

writeln('|||Входные данные задачи|||');
write('Введите количество элементов:');
readln(n);
writeln('Массив А:');
for i:=1 to n do;
read(A[i]);
k:=1;
l:=1;
for i:=1 to N do
if i mod 2=0 then begin k:=k+1;
B[k]:=A[i];

end
else l:=l+1;
C[l]:=A[i];

writeln('Массив B с четными элементами:',b[k]);
read(b[k]);
writeln('Массив C с нечетными элементами:',c[l]);
read(c[l]);
writeln;
writeln;
end.
НЕ МОГУ НАЙТИ ОШИБКУ ИСПРАВЬТЕ ПЛИИИЗЗЗЗ!!!!!

нет, var должен находиться на одной строке с a,b,c

япроверил

var A,B,C:array [1..20] of integer;n,k,l,i:integer;begin writeln('|||Входные данные задачи|||');write('Введите количество элементов:');readln(n);writeln('Массив А:');for i:=1 to n do;read(A[i]);k:=1;l:=1;for i:=1 to N do if i mod 2=0 then begin k:=k+1;B[k]:=A[i];endelse l:=l+1;C[l]:=A[i];writeln('Массив B с четными элементами:',b[k]);read(b[k]);writeln('Массив C с нечетными элементами:',c[l]);read(c[l]);writeln;writeln;end.

вот

спс