var a:array[1..100] of integer;
s,i: integer;
begin
for i:=1 to 10 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 10 do begin
if a[i] mod 3 = 0 then begin
s:=s+a[i];
end; end;
writeln('summa chisel kratnx 3 = ', s);
readln;
end.
1 номер -C.
2номер -А.
3номер -В
Наверное так: из уменьшаемого вычесть вычетаемое