написать программу в питоне

// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
  var Z:=ArrRandom(ReadInteger('n='),1,99);
  Writeln('Массив Z'); Z.Println;
  Writeln('Массив X');
  var X:=Z[1::2].Select(p->p/2).ToArray; Swap(X[0],X[X.Length-1]);
  X.Println;
  Writeln('Массив Y');
  var Y:=Z[::2].Select(p->p/3).ToArray; Swap(Y[0],Y[Y.Length-1]);
  Y.Println
end.

Пример
n= 8
Массив Z
74 17 35 3 33 84 48 39
Массив X
19.5 1.5 42 8.5
Массив Y
16 11.6666666666667 11 24.6666666666667

uses crt;
var
a,b:array[1..1000] of real;
i,n,k,j:integer;
max,sum,tmp:real;
begin
read(n);
for i:=1 to n do
a[i]:=sqrt(i)-cos(i);
max:=a[1];
for i:=1 to n do
if max<a[i] then begin max:=a[i]; k:=i; end;
for i:=1 to k-1 do
sum:=sum+a[i];
j:=0; tmp:=0;
for i:=k+1 to n do
begin
tmp:=a[i];
j:=j+1;
b[j]:=tmp;
end;
writeln('Получившийся массив: ');
for i:=1 to n do
write(a[i]:3:3,' ');
writeln;
writeln('Сумма до максимального: ');
writeln(sum:3:3);
writeln('Массив после максимального: ');
for i:=1 to j do
write(b[i]:3:3,' ');
end.