{SOLVELIN.BSP:}
{$I DECL.TLD}
{$I SYSTEM1.TLD}
{$I SYSTEM2.TLD}
{$I DECL.CPL}
{$I IO3.CPL}
{$I MAT1.TLD}
{$I MAT2.TLD}
{$I MAT1.CPL}
{$I MAT2.CPL}

var a,b:ComplexMatrixType_TLC;
  v,x:ComplexVectorType_TLC;
  ordnung:integer;
begin
  InitIO;
  clrscr;
  writeln('Loesung eines komplexen linearen Gleichungssystems');
  SetInputFieldLength(1);
  ordnung:=ReadIntNumber(1,3,2,9,'Eingabe der Matrixordnung');
  SetInputFieldLength(4);
  SetRealRange(-999,999);
  input_mat_c(1,3,a,ordnung,console,'Eingabe der Elemente der Koeffizientenmatrix');
  b:=a;
  clrscr;
  input_vec_c(1,15,v,ordnung,console,'Eingabe der Komponenten des Vektors des Gleichungssystems');

  solve_lin_equ(a,v,x,ordnung);

  clrscr;
  print_vec_c(1,1,x,ordnung,console,'Der unbekannte Vektor');
  mult_mat_with_vec_c(b,x,x,ordnung);
  print_vec_c(1,13,x,ordnung,console,'Der rekonstruierte Vektor des Gleichungssystems')
end.