Составить логическую схему

Привезли мне один раз коробку , с телевизором каким то и ещё , как там её , а вспомнила крысой.Нет не с крысой , а с мышью.Думаю : "Зачем мне эта коробка?Лучше бы компьютер купили!" , ну а я то сама не знала что эта самая коробка компьютер.Подхожу к коробке , очень хочется  большую круглую кнопку нажать.Ну нажимаю я эту кпопку , а на телевире пишут "Добро Ася " ! Я  опять думаю " откуда коробка моё имя знает!" . Моя мать заходит ко мне и говорит ну как тебе компьютер. Ох ,как я испугалась от коробки .;)

{2 в 1)

Задача:  вывести сумму всех нечетных эелементов и сумму элеметнов стоящих на четных позициях}
var
  a:array[1..100] of integer;
  i, summ1, summ2, n:integer;
begin
  summ1 := 0;
  summ2 := 0;
  randomize;
  write('n = '); readln(n);
  writeln('Исходный массив :');
  for i := 1 to n do
  begin
    a[i] := random(51) - 25;
    write(a[i], ' ');
    if abs(a[i]) mod 2 = 1 then
      summ1 := summ1 + a[i];
    if i mod 2 = 0 then
      summ2 := summ2 + a[i];
  end;
  writeln;
  writeln('Сумма нечетных элементов: ', summ1);
  writeln('Сумма элементов стоящих на четных позициях: ', summ2);
  readln;
end.