Дан массив из 10 элементов . первый элемент равен 2 . каждый последующий элемент больше предыдущего в 3 раза. Создать программу которая выведет на экран все элементы значение которых больше 20.
Const N=10 var a:array[1..N] of integer; i:integer; begin for i:=1 to N do readln(a[i]); a[1]:=2 for i:=2 to N do begin if a[i]>20 then writeln(a[i]*3); end; end.