Помогите пожалуйста! Массив из 10 элементов заполнен случайными числами в Паскале. Найти количество элементов массива кратным 3 и больше 50

var i,s:integer;a:array[1..10] of integer;beginfor i:=1 to 10 do begina[i]:=random(100);write(a[i],'   ');if (a[i] mod 3=0) and (a[i]>50) then s:=s+1;end;writeln('S=',S);end.