{MATARITH.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}

var a,b,c:ComplexMatrixType_TLC;
  ordnung:integer;
begin
  InitIO;
  clrscr;
  writeln('Komplexe Matrizenarithmetik');
  SetInputFieldLength(1);
  ordnung:=ReadIntNumber(1,3,1,9,'Eingabe der Matrixordnung');
  SetInputFieldLength(4);
  SetRealRange(-999,999);
  input_mat_c(1,3,a,ordnung,console,'Eingabe der Elemente der ersten komplexen Matrix');
  clrscr;
  input_mat_c(1,1,b,ordnung,console,'Eingabe der Elemente der zweiten komplexen Matrix');
  add_mat_c(a,b,c,ordnung,true);
  clrscr;
  print_mat_c(1,1,c,ordnung,console,'Die Addition beider Matrizen');
  add_mat_c(a,b,c,ordnung,false);

  repeat until keypressed;

  clrscr;
  print_mat_c(1,1,c,ordnung,console,'Die Differenz beider Matrizen');
  mult_mat_c(a,b,c,ordnung);

  repeat until keypressed;

  clrscr;
  print_mat_c(1,1,c,ordnung,console,'Die Multiplikation beider Matrizen')
end.