2)Дан массив из 10 элементов;вывести только те числа которые кратны 3;найти проиизведение чисел которые оканчиваются на 3 и 4

кажись не верная программа, причем здесь вывод четных чисел?

program n1; uses crt; var aw:array[1..10] of integer; i,w,g:integer; begin g:=0; w:=10; for i:=0+1 to w do begin aw[i]:=random(100); write(aw[i]:6); end; writeln(); write('Чот'); for i:=0+1 to w do begin if aw[i] mod 2 = 0 then g:=g+1; end; write('Всего чотных чисел ',g); writeln(); write('Не чот'); g:=0; for i:=0+1 to w do begin if aw[i] mod 2 > 0 then g:=g+1;end; write('Всего не чотных чисел ',g) ; end.