Untitled

program mac_czyt;
 
{$APPTYPE CONSOLE}
const
 
wie =7;
kol =3;
 
type
 
  macierz = array[1..wie,1..kol] of real;
 
 
var
 
i, j :integer;
f :text;
m, n, k  :macierz;
 
 
 
procedure czytanie(var mp :macierz; npliku :string );
var
i, j :integer;
f :text;
begin       {czytanie}
assign(f, npliku);
reset(f);
  for i:=1 to wie
  do
    for j:=1 to kol
    do
      read(f, mp[i,j]);
 
  close(f);
end;  {czytanie}
 
procedure pisanie(var mp :macierz; npliku :string);
var
  i, j :integer;
  f :text;
begin
  assign(f,'wyjscie.txt');
  rewrite(f);
  for i:=1 to wie
  do  begin
    for j:=1 to kol
    do
      write(f, mp[i,j]:10:2 );
    writeln(f);
    end;
  close(f);
end; {pisanie}
 
procedure sumuj(var wyn, skl1, skl2 :macierz);
var
  i, j :integer;
begin
  for i:=1 to wie
  do begin
    for j:=1 to kol
    do
      wyn[i,j]:= skl1[i,j]+ skl2[i,j];
end; {sumuj}
 
procedure mnozenie(var wyn, skl1, skl2 :macierz);
var
  i, j :integer;
function wrozka(i,j :integer):real;
var
n :integer;
suma :real;
begin
  suma:=0;
  for n:=1 to l
  do
    suma:=suma + cz1[ i , n ] * cz2[ n , j ]
    wrozka:=suma;
end;{wrozka}
 
begin
for i:=1 to k
do
  for j:=1 to m
  do
    ilocz[ i, j ]:=wrozka[i,j]
 
end;{mnozenie}
end;
 
 
 
begin  {program}
 czytanie(m, 'wejscie.txt');
 czytanie(n, 'wejscie2.txt');
 sumuj( k, m, n );
 
 mnozenie(wyn, skl1, skl2);
 pisanie(k, 'wyjscie2.txt');
end.