uses crt;
var i,j:integer;
a:array [1..3,1..3] of integer;
{Ввод массива}
begin
for i:=1 to 3 do
for j:=1 to 3 do
readln(a[i,j]);
writeln;
{Вывод массива}
for i:=1 to 3 do
begin
for j:=1 to 3 do
writeln(a[i,j]);
end;
end.

uses crt;
const
 n=3;
var
 i,j,S_top,S_bot:integer;
 a:array [1..n,1..n] of integer;
{Ввод массива}
begin
 clrscr;
 for i:=1 to n do
  for j:=1 to n do
   begin
    write('a[',i,',',j,']= ');
    readln(a[i,j]);
   end;
 writeln;
{Вывод массива}
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j]:5);
   writeln;
  end;
 writeln;
 S_top:=0;
 S_bot:=0;
{Нахождение суммы элементов верхнего треугольника}
 for i:=1 to n do
  for j:=i+1 to n do
   S_top:=S_top+a[i,j];
{Нахождение суммы элементов нижнего треугольника}
  for i:=2 to n do
  for j:=1 to i-1 do
   S_bot:=S_bot+a[i,j];
{Вывод найденных сумм}
 writeln('S_top= ',S_top);
 writeln('S_bot= ',S_bot);
{Сравнение найденных сумм и вывод результата}
 if S_top>S_bot then writeln('S_top>S_bot') else
 if S_top<S_bot then writeln('S_top<S_bot') else
 writeln('S_top=S_bot');
 readln;
end.