Түсінуге және сызуға оңай, дәл қолмен сурет сызғандай болады.
Фигуралар кескінін сызуға арналған,бейне салынбайды,құрастырылады.​

С простым жестом касания (или жестом, соответствующим ему на Вашем аксессуаре) Вы можете выполнить указанные ниже действия.

Открыть меню AssistiveTouch

Переход на экран «Домой»

Выполнить двойное касание

Выполнить жесты несколькими пальцами

Выполнить жесты прокрутки

Вызов Siri

Доступ к Пункту управления, уведомлениям, экрану блокировки или Переключателю приложений

Настройка громкости на iPhone

Встряхнуть iPhone

Как сделать снимок экрана

Использовать 3D Touch (на поддерживаемых моделях iPhone)

Использовать Apple Pay

Использовать функцию «Экстренный вызов — SOS»

Озвучить содержимое экрана

Настроить параметры автонажатия

Перезагрузка iPhone

Объяснение:

Uses crt;
const
    nmax = 20;

var
    A: array[1..nmax] of integer;
    I, m, s: integer;
    Am, kon: text;

begin
    Clrscr;
    Assign(Am, 'Am.txt');
    
    {раскоментировать для записи массива в файл}
    {Rewrite(Am);
    m := Random(nmax - 5) + 5;
    for i := 1 to m do
        Writeln(Am, Random(20));
    Close(Am);}
    
    {считывание данных из файла}
    Reset(Am);
    s := 0;
    m := 0;
    while not eof(Am) do
    begin
        m := m + 1;
        Readln(Am, A[m]);
        s := s + A[m];
    end;
    Close(Am);
    
    Assign(kon, 'kon.txt');
    Rewrite(kon);
    
    if s > 50 then
        Writeln('Сумма элементов массива более 50 и равна: s=', s)
    Else
    begin
        Writeln('Сумма элементов менее 50, вывод исходного массива');
        for i := 1 to m do
        begin
            Writeln('A[', i, ']=', A[i], ' ');
            Writeln(kon, 'A[', i, ']=', A[i], ' ');
        end;
    end;
    
    Close(kon);
    Readkey;
end.