Логічний вираз, значення якого дорівнює True, якщо значення логічного виразу дорівнює False, і дорівнює це один хибний вираз (3-4 речення) ​

паска́ль ( обозначение: па, международное: pa) — единица измерения давления (механического напряжения) в международной системе единиц (си)[1].паскаль равен давлению, вызываемому силой, равной одному ньютону, равномерно распределённой по нормальной к ней поверхности площадью один квадратный метр: 1 па = 1 н·м−2.

с основными единицами си паскаль связан следующим образом: 1 па = 1 кг·м−1·с−2.

в си паскаль также является единицей измерения механического напряжения, модулей , модуля юнга, объёмного модуля , предела текучести, предела пропорциональности, сопротивления разрыву, сопротивления срезу, звукового давления, осмотического давления, летучести (фугитивности)[2].

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

единица названа в честь французского и блеза паскаля. впервые наименование было введено во франции декретом о единицах в 1961 году[2][3].

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк (столбцов) в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var (su,sd,sl):=(0,0,0);
  for var i:=0 to n-1 do
    for var j:=0 to n-1 do
      if i<j then su+=a[i,j]
      else
        if i=j then sd+=a[i,j]
        else sl+=a[i,j];
  Writeln('Суммы элементов:');
  Writeln(' - верхней треугольной матрицы ',su);
  Writeln(' - главной диагонали ',sd);
  Writeln(' - нижней треугольной матрицы ',sl)
end.

Пример
Количество строк (столбцов) в матрице: 4
*** Исходная матрица ***
 -73 -89   4  39
  77 -32  23 -45
 -29 -70 -88 -40
 -83   9  21 -46

Суммы элементов:
 - верхней треугольной матрицы -108
 - главной диагонали -239
 - нижней треугольной матрицы -75

"Школьный" вариант

const
  nn=20; { максимальный размер }

var
  a:array[1..nn,1..nn] of integer;
  i,j,n:integer;
  su,sd,sl:longint;
 
begin
  Write('Количество строк (столбцов) в матрице:');
  Readln(n);
  Randomize;
  Writeln('*** Исходная матрица ***');
  su:=0; sd:=0; sl:=0;
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(199)-99;
      Write(a[i,j]:4);
      if i<j then su+=a[i,j]
      else
        if i=j then sd+=a[i,j]
        else sl+=a[i,j]
      end;
      Writeln
    end;
  Writeln('Суммыа элементов:');
  Writeln(' - верхней треугольной матрицы ',su);
  Writeln(' - главной диагонали ',sd);
  Writeln(' - нижней треугольной матрицы ',sl)
end.