type Matriz= array[1..20,1..20] of real;
Procedure ValidarN (Var N : real);
begin
writeln ('Digite a Ordem da Matriz: ');
repeat
readln (n);
until n<=20;
end;
Procedure MatrizN (N :integer; Var M : matriz);
var L, C : Integer;
begin
For L:=1 to N do
For C:=1 to N do
M[L,C]:= (2*L)-(3*C);
end;
Function SomaDiagPri (N :integer; M :matriz) :real;
var L, C : integer;
S :real;
begin
s:= 0;
For L:=1 to N do
For C:=1 to N do
IF L=C THEN
begin
S:= S + m[l,c];
end;
SomaDiagPri:= S;
end;
Function SomaDiagSec (N :integer; M :matriz) :real;
var L, C : integer;
S :real;
begin
s:= 0;
For L:=1 to N do
For C:=1 to N do
IF L+C=N+1 THEN
begin
S:= S + m[l,c];
end;
SomaDiagSec:= S;
end;
