ВЫвести на экран все двузнычные числа кратные 3 и оканчивающиеся на 3.Найти их среднее арифметическое(Pascal)

uses crt;const b = 10;var x=0,y=0;integer;a = array[10..b] of integer;beginfor x:=0 to b do...................................if(a[i]mod3=0 and a[i]mod10=3) there beginx:=x+1;y:=y+a[i];end;writeln(x,y);end.