Составить программку по условию: дан массив из 10 частей.Отыскать сумму элементов,

Так как задание не формализовано выводит поочередно суммы кратных 3 и двухзначных чисел

Program TZ5;
const
n=10;
var
a:array [1..n] of integer;
i,b:integer;
begin
randomize;
for i:=1 to n do begin
 a[i]:=random (20);
 a[i]:=a[i]-10;
        writeln(i,'  ',a[i]);
end;
b:=0;
for i:=1 to n do
    if (a[i] mod 3)=0 then
       b:=b+a[i];
writeln('summa kratnyh 3m=',b);
b:=0;
for i:=1 to n do
    if абс(a[i]) gt;9 then b:=b+a[i];
writeln('summa dvuhznachnyh =',b);
readln;
end.