Територии грецьких держав яки активно боролися проти персии​

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
    begin
        writeln('I');
        var n := ReadInteger('n=');
        Writeln((1 + 1 + Power(2, n - 1)) * n / 2);
    end;
    
    begin
        writeln;
        writeln('II');
        var n := ReadInteger('n=');
        Writeln(n mod 11 = 0 ? 'YES' : 'NO');
        
    end;
    
    begin
        writeln;
        writeln('III');
        var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
        writeln;
        
        while a.Any() do
        begin
            write(a[0], ' ');
            a.RemoveAt(0);
            if not a.Any then break;
            
            write(a.Last, ' ');
            a.RemoveAt(a.Count - 1);
            if not a.Any then break;
            
            var n := 0;
            if a.Count > 1 then n := a.Count div 2 - 1;
            write(a[n], ' ');
            a.RemoveAt(n);
        end;
    end;
end.

Dim N As Long, M As Long, A As Integer
Dim strN1 As String, LngN1 As Long, i As Integer
Randomize
Print "Введите число N от 0 до 1 миллиарда: ";
Input N
A = Int(Rnd (1)*14) + 2 ' Случайно выбираем основание от 2 до 16
' Зашифровываем введенное число со случайным основанием
i = 0:  strN1 = ""
Do While N > 0
M =  N Mod A
If M = 10 Then
     strN1 = "A" &  Trim(strN1)
ElseIf M = 11 Then strN1 = "B" & Trim(strN1)  
ElseIf M = 12 Then strN1 = "C" & Trim(strN1)
ElseIf M = 13 Then strN1 = "D" & Trim(strN1) 
ElseIf M = 14 Then strN1 = "E" & Trim(strN1) 
ElseIf M = 15 Then strN1 = "F" & Trim(strN1)  
Else 
     strN1 = Trim(Str(M)) & Trim(strN1)
End If
N = Int (N / A)
i = i + 1
Loop
Print "Число N с неизвестным основанием А: " & strN1
' Зашифровали число, теперь подбираем неизвестное основание
LngN1 = 0
For A = 2 To 16
For i = 1 To Len(strN1)
M = Val (Mid (strN1,  Len(strN1) - i + 1, 1))
If Trim (Str (M)) = "A" Then
    LngN1 =  LngN1 + 10*A^(i-1)
ElseIf Trim (Str (M)) = "B" Then LngN1 = LngN1 + 11*A^(i-1) 
ElseIf Trim (Str (M)) = "C" Then LngN1 = LngN1 + 12*A^(i-1)  
ElseIf Trim (Str (M)) = "D" Then LngN1 = LngN1 + 13*A^(i-1)  
ElseIf Trim (Str (M)) = "E" Then LngN1 = LngN1 + 14*A^(i-1)  
ElseIf Trim (Str (M)) = "F" Then LngN1 = LngN1 + 15*A^(i-1)  
Else
    LngN1 =  LngN1 + M*A^(i-1) 
End If
Next i
If LngN1 = N Then Exit For
Next A
Print "Неизвестное основание А = " & A
End