Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти: -Удвоенную сумму положительных элементов; -Вывести значения тех элементов, которые меньше заданного числа А кратны 3.

program PR_1; var b:array [1..10] of integer; i,sum,A: integer; begin for i:=1 to 10 do readln (b[i]); sum:=0; for i:=1 to 10 do if b[i] mod 2=0 then sum:=sum+b[i]; sum:=2*sum; writeln ('удвоенная сумма равна',sum); writeln ('введите число'); readln (A); for i:=1 to 10 do begin if (b[i]>A) and (b[i] mod 3=0) then writeln (b[i]); end.