Помогите, пожалуйста, решить задачу по информатике.

Pascal ABC:

var St : string; Len : integer;
begin
St := 'программирование'; Len := Length (St); WriteLn (' Задано слово : ', St);
WriteLn (' 1. Третий символ: ' , St[3]);
WriteLn (' 2. Предпоследний символ: ' , St[Len - 1]);
Write (' 3. Первые 5 символов строки: ' );
for var i:= 1 to 5 do Write (St[i]); WriteLn;
Write (' 4. Кроме двух последних: ');
for var i:= 1 to (Len-2) do Write (St[i]); WriteLn;
Write(' 5. Буквы с четными индексами : ') ;
for var i:= 1 to Len do if (i mod 2 = 0) then Write (St[i]); WriteLn;
Write (' 6. Буквы с нечетными индексами : ');
for var i:= 1 to Len do if (i mod 2 <> 0) then Write (St[i]); WriteLn;
Write (' 7. Буквы в обратном порядке : ' );
for var i:= Len downto 1 do Write (St[i]);
end.

программа, которая решает данную задачу, используя срезы:

s = "программирование"

# выводим третий символ
print(s[2])

# выводим предпоследний символ во второй строке
print(s[-2])

# выводим первые пять символов в третьей строке
print(s[:5])

# выводим всю строку, кроме последних двух символов, в четвертой строке
print(s[:-2])

# выводим все символы с четными индексами в пятой строке
print(s[::2])

# выводим все символы с нечетными индексами в шестой строке
print(s[1::2])

# выводим все символы в обратном порядке в седьмой строке
print(s[::-1])


Результат выполнения программы:

о
е
прогр
программирова
пормиоае
ргамвиен
еиновироммаргоп

Решение:

string = "программирование"

# Вывод третьего символа
print(string[2])

# Вывод предпоследнего символа
print(string[-2])

# Вывод первых пяти символов
print(string[:5])

# Вывод всей строки, кроме последних двух символов
print(string[:-2])

# Вывод всех символов с четными индексами
print(string[::2])

# Вывод всех символов с нечетными индексами
print(string[1::2])

# Вывод всех символов в обратном порядке
print(string[::-1])