Порите с инфой Вообще ничего непонятно

использовать Чертежник

алг груша

нач

сместиться в точку ( 6 , 13 )

опустить перо

сместиться в точку ( 3 , 13 )

сместиться в точку ( 1 , 14 )

сместиться в точку ( 2 , 15 )

сместиться в точку ( 5 , 14 )

сместиться в точку ( 6 , 13 )

сместиться в точку ( 5 , 12 )

сместиться в точку ( 4 , 12 )

сместиться в точку ( 3 , 11 )

сместиться в точку ( 3 , 9 )

сместиться в точку ( 1 , 5 )

сместиться в точку ( 1 , 4 )

сместиться в точку ( 2 , 2 )

сместиться в точку ( 3 , 1 )

сместиться в точку ( 6 , 1 )

сместиться в точку ( 7 , 2 )

сместиться в точку ( 8 , 4 )

сместиться в точку ( 8 , 5 )

сместиться в точку ( 6 , 9 )

сместиться в точку ( 6 , 11 )

сместиться в точку ( 5 , 12 )

поднять перо

сместиться в точку ( 0 , 0 )

кон

Const
  n=10;
var
  x:array[1..n] of integer;
  i,s:integer;
  found:boolean;
begin
  { инициализация массива }
  Randomize;
  Writeln('Элементы массива');
  for i:=1 to n do
  begin
    x[i]:=Random(50);
    Write(x[i]:3);
  end;
  Writeln;
  { задание 1 }
  s:=0; i:=1;
  while i<=n do
  begin s:=s+x[i]; i:=i+2 end;
  Writeln('Cумма элементов на нечетных местах равна ',s);
  { задание 2 }
  for i:=1 to n-1 do
  begin
    found:=(x[i] mod 2 = 0) and (x[i+1] mod 2 = 0);
    if found then break
  end;
  if found then Writeln ('Пара соседних четных элементов: ',x[i],', ',x[i+1])
  else Writeln('Нет пары соседних четных элементов')
end.

Тестовое решение:
Элементы массива
  3 11 42 38 36 47  8 15 15 13
Cумма элементов на нечетных местах равна 104
Пара соседних четных элементов: 42, 38