Определить сумму оплаты за провоз багажа в зависимости от расстояния и веса. Если перевозка на расстоянии меньше 1000км, то тариф 3руб за кг веса, от 1000 до 2000 — 2,5руб. /кг, больше 2000 км — 2руб. /кг
Если вес груза до 5 тонн то 100% от тарифа, если от 5 до 10 тонн, то 90%, выше 100 тонн — 80% тарифа.

3.

Var S,i:integer;
Begin
S:=0;
For i:= 1 to 1000 do
    if i mod 2 = 0 then S:=S+i;
WriteLn('S = ',S)
End.

Результат работы программы:
S = 250500

4.

Var
   N,A,i,Max:integer;
Begin
Write('N = ');ReadLn(N);
Write('Введите целые числа(',N,' шт.):');
Read(Max);
i:=1;
For N:= 2 to N do
    Begin
    Read(A);
    if A > Max then
       Begin
       Max:=A;
       i:=N
       End;
    End;
WriteLn('Максимум: ',Max);
WriteLn('Номер максимума: ',i);
End.

Пример работы программы:

N = 7
Введите целые числа(7 шт.):1 2 3 5 9 4 7
Максимум: 9
Номер максимума: 5

5.

Var K,N:integer;
Begin
Write('K = ');ReadLn(K);
Write('N = ');ReadLn(N);
WriteLn('Количество купюр по ',K,' руб.: ',N div K);
WriteLn('Количество купюр по 1 рублю: ',N mod K);
End.

Пример работы программы:

K = 38
N = 3000
Количество купюр по 38 руб.: 78
Количество купюр по 1 рублю: 36

Сначала (до i=5) удваиваются элементы массива 1, 2, 3, 4, 5. Получается соответственно 2, 4, 6, 8, 10. Затем, с i=6 удваиваются полученные значения (в обратном порядке). Получается 20, 16, 12, 8, 4.
Можно это всё расписать подробно, по шагам:
1, 2, 3, 4, 5, 6, 7, 8, 9, 10
1 шаг цикла:
A [10] := 2*A[1] 
1, 2, 3, 4, 5, 6, 7, 8, 9, 2
2 шаг:
A [9] := 2*A[2]
1, 2, 3, 4, 5, 6, 7, 8, 4, 2
3 шаг:
A [8] := 2*A[3]
1, 2, 3, 4, 5, 6, 7, 6, 4, 2
4 шаг:
A [7] := 2*A[4]
1, 2, 3, 4, 5, 6, 8, 6, 4, 2
5 шаг:
A [6] := 2*A[5]
1, 2, 3, 4, 5, 10, 8, 6, 4, 2
6 шаг:
A [5] := 2*A[6]
1, 2, 3, 4, 20, 10, 8, 6, 4, 2
7 шаг:
A [4] := 2*A[7]
1, 2, 3, 16, 20, 10, 8, 6, 4, 2
8 шаг:
A [3] := 2*A[8]
1, 2, 12, 16, 20, 10, 8, 6, 4, 2
9 шаг:
A [2] := 2*A[9]
1, 8, 12, 16, 20, 10, 8, 6, 4, 2
10 шаг:
A [1] := 2*A[10]
4, 8, 12, 16, 20, 10, 8, 6, 4, 2

ответ: 8