В паскале используется оператор "to" (вроде оператор, не шарю за программирование). Внизу прога, которая определяет чётность индекса элемента. Если ввести 4, 5, 3, 4, 2, 3, то он выведет 4, 3, 2. Переведите на python и дайте ответ на вопрос: как заменить "to", используемый в паскале, в питоне? var A:array[0..9999]of longint;
i, N: integer;
begin
readln(N);
for i:=0 to N-1 do read (A[i]);
for i:=0 to N-1 do
if i mod 2 = 0 then write(A[i], '')
end.

Const N = 10;

begin
  var a: array[1..N] of real;
  var i: integer;
  var growing: boolean;
 
  for i := 1 to N do begin
    readln(a[i]);
  end;
 
  growing := true;
 
  for i := 2 to N do begin
    if a[i] <= a[i - 1] then begin
      growing := false;
      break;
    end;
  end;
 
  writeln(growing);
end.

const m = 5;
const n = 4;
const limit = 100;

begin
  var matrix: array[1..m] of array[1..n] of real;
  var matrixb: array[1..m - 1] of array[1..n - 1] of real;
  var row, col, rb, cb, lowest_row, lowest_col: integer;
  var lowest: real;
  var p: boolean;
 
  lowest := limit;
 
  for row := 1 to m do begin
    for col := 1 to n do begin
      matrix[row][col] := random(limit - 1);
      if matrix[row][col] < lowest then begin
        lowest := matrix[row][col];
        lowest_col := col;
        lowest_row := row;
      end;
      write(matrix[row][col], ' ');
    end;
    writeln('');
  end;
 
  writeln('');
  writeln(lowest);
  writeln('');
 
  rb := 1;
 
  for row := 1 to m do begin
    p := false;
    cb := 1;
    for col := 1 to n do begin
      if (not (col = lowest_col)) and (not (row = lowest_row)) then begin
        p := true;
        matrixb[rb][cb] := matrix[row][col];
        cb := cb + 1;
      end;
    end;
    if p then begin
      rb := rb + 1;
    end;
  end;
 
  for rb := 1 to m - 1 do begin
    for cb := 1 to n - 1 do begin
      write(matrixb[rb][cb], ' ');
    end;
    writeln('');
  end;
 
end.

Если квадрат натурального числа не превосходит 225, то само это число не может превосходить √225 = 15.
Алгоритм
Заносим в переменную res (результат) число 0. Оно заведомо меньше любого из натуральных чисел в последовательности.
Читаем очередное число в последовательности. Если оно больше res и при этом не превышает 15, записываем его в res. Если оно равно нулю, чтение прекращаем и выводим значение res.

var
  res,num:integer;
begin
  res:=0;
  repeat
    Read(num);
    if (num>res) and (num<=15) then res:=num
  until num=0;
  Writeln(res)
end.