Найти скалярное произведение i строки на i столбец элементы матрицы зада по след правилу

[(Нафаня)]

если i>j то a[i,j]:=1
если i=j то a[i,j]:=0
если i<j то a[i,j]:=j
Проверьте пожалуйста код, а то мне кажется он работает не правильно(

program nom26;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n=4;
type
  telem=integer;
  matr=array [1..n,1..n] of telem;
procedure vvod(var a:matr);
var
  i,j:telem;
begin
  for i:=1 to n do
   for j:=1 to n do
     if i>j then a[i,j]:=1
       else if i=j then a[i,j]:=0
         else if i<j then a[i,j]:=j;
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]);
        writeln;
    end;
end;
procedure skalyar(a:matr);
var
  i,j,pr:telem;
begin
  pr:=0;
  for i:=1 to n do
    for j:=1 to n do
       if i=j then pr:=pr+a[i,j]*a[i,j];
  writeln('Skal proizv i stroki na i stolb = ',pr);
end;
var
  a:matr;
begin
  vvod(a);
  skalyar(a);
  readln;
end.

[BDA]

program nom26;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 4;

type
  matr = array [1..n, 1..n] of integer;

procedure vvod(var a: matr);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to n do
      if i > j then a[i, j] := 1
      else if i < j then a[i, j] := j
      else a[i, j] := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]);
    writeln;
  end;
end;

procedure skalyar(a: matr);
var
  i, j, pr: integer;
begin
  for i := 1 to n do
  begin
    pr := 0;
    for j := 1 to n do
      pr := pr + a[i, j] * a[j, i];
    writeln('Skal proizv ', i, ' stroki na ', i, ' stolb = ', pr);
  end;
end;

var
  a: matr;

begin
  vvod(a);
  skalyar(a);
  readln;
end.

[(Нафаня)]

Спасибо) вы снова мне помогли)

[(Нафаня)]

Т.е. здесь считает все скалю произ-я, а потом просто нужные печатает? Я правильно поняла?

[BDA]

По-моему, не совсем правильно.
Программа считает скалярные произведения i столбца на i строку для i от 1 до n.
Тут нету всех скалярных произведений и нужных.
Внешний цикл перебирает строки.
Внутренний умножает i строку на i столбец скалярно.
Затем печатается получившееся число, и так для каждой строки, т.е. n раз.

В вашем коде считается сумма квадратов чисел, расположенных на главной диагонали.

[(Нафаня)]

А, теперь понятно) спасибо)