СЛАУ

Program Laba4;
var i,j,N:integer;
    A: array [1..N, 1..N] of real;
    B: array [1..N] of real;
BEGIN
 Writeln(Vvedite chislovoe znachenie - razmernost matrici A);
  read(A);
 Writeln('Vvedite elementi matrici A');
  for i:=1 to N do
   for j:=1 to N do
    read(A[i,j]);
     writeln(A[i,j]);
 Writeln('Vvedite elementi vektora svobodnih chlenov');
  for i:=1 to N do
   read(B[i]);
    writeln(B[i]);
END.

Program Laba4;
var i,j,N:integer;
    A: array [1..N, 1..N] of real;
    B: array [1..N] of real;
BEGIN
 Writeln(Vvedite chislovoe znachenie - razmernost matrici A);
  read(N);
 Writeln('Vvedite elementi matrici A');
  for i:=1 to N do
   for j:=1 to N do
    read(A[i,j]);
     writeln(A[i,j]);
 Writeln('Vvedite elementi vektora svobodnih chlenov');
  for i:=1 to N do
   read(B[i]);
    writeln(B[i]);
END.

Const
  m=10;
Var
  a:array[1..m,1..m] of real;

Program laba4;
const N=2;
var i,j:integer;
    A: array [1..N, 1..N] of real;
    B: array [1..N] of real;
BEGIN
  Writeln('Vvedite elementi matrici A');
  for i:=1 to N do
   for j:=1 to N do
    read(A[i,j]);
     writeln(A[i,j]);
 Writeln('Vvedite elementi vektora svobodnih chlenov');
  for i:=1 to N do
   read(B[i]);
    writeln(B[i]);
    readln;
END.

BEGIN
  Writeln('Vvedite ',n*n,' elementov matrici A');
  for i:=1 to N do
   for j:=1 to N do
    readln(A[i,j]);
 Writeln('Vvedite ',n,' elementov vektora svobodnih chlenov');
  for i:=1 to N do
   readln(B[i]);
writeln('Matrica:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);
  write(b[i]:6:2);
  writeln;
 end;

for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);//в строку коэффициенты
  write(b[i]:6:2);//свободный член
  writeln;//на новую строку
 end;

...
if N=0 then writeln('Vvedite korrektnuu razmernost matrici')
  else
   if N=1 then detA:=A[1,1]
  else
   if N=2 then detA:=(A[1,1]*A[2,2]-A[2,1]*A[1,2])
  else
   if N=3 then detA:=(A[1,1]*A[2,2]*A[3,3]+A[2,1]*A[3,2]*A[1,3]+A[1,2]*A[2,3]*A[3,1]-A[3,1]*A[2,2]*A[1,3]-A[3,2]*A[2,3]*A[1,1]-A[2,1]*A[1,2]*A[3,3]);
....

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const N=3;
var i,j:integer;
    A: array [1..N, 1..N] of real;
    B: array [1..N] of real;
   begin
    Writeln('Vvedite ',N*N,' elementa(ov) matrici A');
  for i:=1 to N do
   for j:=1 to N do
    read(A[i,j]);
 
 Writeln('Vvedite ',N,' elementa(ov) vektora svobodnih chlenov');
  for i:=1 to N do
   read(B[i]);
 Writeln('Matrica');
   for i:=1 to N do begin
    for j:=1 to N do begin
     if j<i then A[i,j]:=0;
     end;
     end;
     for i:=1 to N do
   begin
    for j:=1 to N do
     write(A[i,j]:6:0);
     write(B[i]:6:0);
     writeln;
   end;
 
 
    readln;
    readln;
END.