буду очень сильно благодарен

... Каждый начал приводить аргументы. "Я лучше потому-то без меня-клавиатуры мы бы не смогли печатать, то есть не смогли бы передавать информацию на компьютер"- сказала клавиатура , "Без меня-монитора мы бы не смогли видеть эту самую информацию"- говорил монитор, "Без меня- памяти мы бы не могли сохранить ее (информацию)"- протараторила память, "А без меня-процессора и вовсе компьютер не стал бы работать"- заявил процессор. И клавиатура, и монитор, и память, и процессор - все они неотъемлимые части компьютера, без них он бы не работал. Не стали они больше ссориться, и жили дружно и счастливо!

var
  N, i, Sum, Odds: integer;
  A: array [1..1000] of integer;
begin
  sum := 0;
  Odds := 0;
  write('Введите N: ');
  readln(N);
  writeln('Заполнение массива.');
  for i := 1 to N do
  begin
    write('Введите A[', i, '] = ');
    readln(A[i]);
    if A[i] < 10 then
      sum := sum + A[i];
    if (A[i] mod 7 = 0) and (A[i] mod 2 <> 0) then
      Odds := Odds + 1;
  end;
  writeln;
  writeln('Ваш массив.');
  for i := 1 to N do
    write(A[i]:4);
  writeln;
  writeln('Сумма элементов меньше 10 = ', sum);
  writeln('Количество нечетных элементов кратных 7 = ', Odds);
end.