срочно помогите решить! дам много пунктов!!! пожалуйста, зачет по информатике!!  в qBasiq

Вариант № 1

Дан массив целых чисел, состоящий из 20 элементов. Заполнить его с клавиатуры.

1. Найти:

- сумму элементов, имеющих нечетное значение;

- вывести индексы тех элементов, значения которых больше заданного числа А.

2. Определить, есть ли в данном массиве положительные элементы, кратные k (k вводить с клавиатуры).

Program Pr1;uses crt;var mas:array[1..20] of integer; i,v,a,k,x:integer;Beginclrscr;writeln('Vvedite A');readln(a);writeln('Vvedite K');readln(k);for i:=1 to 20 do begin writeln('Vvedite ',i,'-ji simvol'); readln(mas[i]); end;v:=0;x:=0;for i:=1 to 20 do begin if mas[i] mod 2<>0 then v:=v+mas[i]; if mas[i]>a then writeln('>a ',i); if (mas[i] mod k=0) and (mas[i]>0) then x:=x+1; end;writeln('Summa nechetnih - ', v );if x>0 then writeln('TRUE')else writeln('FALSE');end.