Определить сумму элементов выше главной диагонали и ниже главной диагонали. какая из них больше - Pascal ABC - Ответ 5698188

program mas;
 
var a: array [1..5, 1..5] of integer;
    sa, sb, i, j: integer;
 
begin
  randomize;
  writeln('Source array:');
  sa := 0;
  sb := 0;
  for j := 1 to 5 do
    begin
      for i := 1 to 5 do
        begin
          a[i, j] := random(198) - 99;
          if i > j then sa := sa + a[i, j];
          if i < j then sb := sb + a[i, j];
          write(a[i, j]:4)
        end;
      writeln
    end;
  writeln('Sum above principal diagonal = ', sa);
  writeln('Sum below principal diagonal = ', sb);
  if sa > sb
    then writeln('Sum above principal diagonal > Sum below principal diagonal')
    else if sa < sb
      then writeln('Sum above principal diagonal < Sum below principal diagonal')
      else writeln('Sum above principal diagonal = Sum below principal diagonal');
  readln
end.