Допустим, вы хотите создать модель учебного процесса в вашей группе. Подумайте, какие вам потребуются данные. А потом перед вами поставили задачу смоделировать процесс летнего отдыха, например, коллективной поездки на турбазу. Подумайте, какие вам потребуются данные для решения новой задачи. Подумайте, какие данные будут общими для этих двух моделей.

Const
    handsfree = false;

var
    a: array[1..100] of integer;
    i, n: integer;

begin
    {ввод массива}
    if handsfree then
        n := random(20) + 5
    else begin
        write('n = ');
        readln(n);
    end;
    
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(100) - 50;
            write(a[i], ' ');
        end
        else readln(a[i]);
    end;
    writeln();
    
    {изменение элементов}
    writeln('Вывод прямой:');
    for i := 1 to n do
        write(a[i], ' ');
    writeln();
    
        {изменение элементов}
    writeln('Вывод обратный:');
    for i := n downto 1 do
        write(a[i], ' ');
end.