sum:=0; count:=0; For I:=1 to 62 do begin if (A[I] >= 100) and (A[I] <= 999) then begin sum:=sum+A[I]; if (A[I] > 248) then count:=count+1; end; end; writeln(sum); writeln(count);