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.