Пусть дано 100 целых чисел, которые вводятся по одному. Найдите количество элементов больших числа 10 и кратных 3

Program Pr1;uses crt;var mas:array[1..100] of integer; i,a:integer;Beginclrscr;a:=0;for i:=1 to 100 do begin read(mas[i]); if (mas[i]>100) and (mas[i] mod 3=0) then a:=a+1; end;writeln(a);end.