1. вычислите логические выражения: not true and not false not true or not false not (true or false) not (true and false) 2. напишите условие нахождения точки a в первом квадранте системы координат, считая ее координаты заданными x переменными x, y . 3. напишите программу, выводящую слова зачет, если введено число 3, 4 или 5 и незачет, если введено число 1 или 2. 4. напишите программу, выводящую текст плохо, удовлетворительно, хорошо или отлично, если введено число 2, 3, 4 или 5 соответственно.

program xxx;

    var i, n : integer;

              a, s : real;

                    b : array [1..20] of real;

begin

  writeln('введите число а=');

  readln(a);

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива b: ');

  for i: =1 to n do

        readln(b[i]);

  writeln('исходный массив b: ');

  for i: =1 to n do

        writeln(b[i]);

  s: =0;

  for i: =1 to n do

      if b[i] > a then s: =s+b[i];

  writeln('сумма элементов =', s);

  readln

end.

  я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))

vara: string; b: integer; beginwriteln ('введите строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; while (b = 1) dobeginwriteln ('введіте строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; end;

end.