НЕПРАВИЛЬНО - ЖАЛОБА не отвечайте наугад, это повлияет на мою триместровую оценку, в случае, если она не устроит - родители оставят меня на очередной год без телефона. Вы очень мне я могу написать второй во и дать еще 100 тому, кто ответит верно.

Две программы на Паскале:
Первая - которая подсчитывает сумму, разность, частное и произведение двух чисел.
Вторая - высчитывающая объем цилиндра (формула объем=пи*R^2*h), значения радиуса и высоты вводятся с клавиатуры, константа задаётся через раздел констант.
ответ в формате скринов двух программ, написанных в Паскале программы.

Var
    n, k, i, imax, j: integer;
    a: array[1..100]of integer;

begin
    randomize;
    n := random(30) + 10;
    for i := 1 to n do
    begin
        a[i] := Random(30);
        write(a[i], ' ');
    end;
    writeln();
   
    {сортировочка}
    for i := 1 to n - 1 do
    begin
        imax := i;
        for j := i + 1 to n do
            if a[j] > a[imax] then
                imax := j;
        k := a[i];
        a[i] := a[imax];
        a[imax] := k;
    end;
   
    for i := 1 to n do
        write(a[i], ' ');
   
    k := 0;
    for i := 2 to n - 1 do
        if (a[i] <> a[i - 1]) and (a[i] <> a[i + 1]) then
            k := k + 1;
   
    if a[1] <> a[2] then k := k + 1;
    if a[n] <> a[n - 1] then k := k + 1;
   
    writeln();
    writeln('No doubles - ', k);
end.

Цикл - повторяющаяся во времени последовательность событий, процессов или явлений.

Операторы: break - прерывает цикл, continue - переходит к следующей итерации цикла.

While - пока

Запись:

while условие:

   блок кода

Если условие ложно - ни одного

Цикл while используется, когда невозможно определить точное количество повторений цикла? например, когда нужно постоянно запрашивать у пользователя ввод каких-либо данных, пока он не введёт нужные или добавлять к переменной какое-либо число или другую переменную, пока она не будет равна нужному числу.