7 Контрольные во Что понимают под классом объектов? Свойствами объектов? 7.2 Типы связей "один-к-одному" и "один-ко-многим": как они реализуются в реляционных базах данных? 7.3 В каких режимах можно создать структуру таблицы в Access97 ? 7.4 Какая информация указывается в структуре таблицы? 7.5 Что такое ключевое поле и какие требования предъявляются к нему? 7.6 Как в СУБД Access можно определить ключевое поле? 7.7 Как и для чего в СУБД Access создается схема данных? 7.8 Типы данных в Access97. 7.9 Как при определении структуры таблицы использовать свойства полей ? 7.10 Как в Access определить связи между таблицами? 7.11 Как используется Мастер подстановок?

//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.

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
    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.