Сожмите массив выбросив каждый 3 его элемент.Выведите на экран исходный и измененный результат

//PascalABC.Net 3.2 begin var a:=ReadArrInteger('Вводите массив: ', readinteger('Кол-во элементов: ')); a.Println; for var i:=0 to length(a)-1 do if (i+1) mod 3<>0 then print(a[i]); end.