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

Program Pr1;

uses crt;

var mas:array[1 ... 100] of integer;

i, a:integer;

Begin

clrscr;

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.