Составить программу для вычисления пути, пройденного лодкой, если ее скорость в стоячей воде V1 км/ч, скорость течения реки V2 км/ч, время движения по озеру T1 ч, а против течения реки - T2 ч.

text = "Программа! "  # Переменная text Содержит строку "Программа! "

print(text [0:10])  # Индексирование каждого символа строки. [:] - Это срез. [0:10] - Вывести 10 символов - Целая строка, но только без пробела в конце строки, тк заданная команда выводит все символы строки (Если было бы [0:11] - то пробел конечно же был бы включен)

print(text [0:4])  # Вывести символы от индекса 0 - Это символ П, до индекса 4 - Это символ Р. Результат: Прог

print(text [-2])  # Отрицательное значение, обычно применяется для того, чтобы взять что-либо с конца строки, списка и т.п..

print(text [::3])  # Вывести каждый символ с чередованием 3 символа. Так скажем... Перешагнуть 2 символа, и уже 3й распечатать

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-50,50);
  Writeln('Исходный массив'); a.Println;
  var se:=a.Where(x->x mod 3=0);
  if se.Count=0 then
    Writeln('В массиве нет элементов, кратных трем')
  else begin
    var b:=se.Max;
    var i:=0;
    while a[i]<>b do Inc(i);
    if i=n-1 then Writeln('Максимальный элемент - последний')
    else begin
      Writeln('Результирующий массив');
      a[i+1]:=abs(a.Where(x->x<0).Sum); a.Println
      end
    end
end.

Тестовое решение:
n= 15
Исходный массив
-24 -38 15 -33 -40 -18 21 34 20 49 -19 29 29 38 -41
Результирующий массив
-24 -38 15 -33 -40 -18 21 213 20 49 -19 29 29 38 -41