program ghf;
 
var L:array[1..9,1..14] of integer;
    i,j:integer;
    f:text;
    probel:string;
 
begin
 
for i:=1 to 9  do
for j:=1 to 14 do L[i,j]:=i*j;
 
write ('Vot vvedennyy vami massiv N:');
for i:=1 to 9  do begin writeln;
for j:=1 to 14 do write (L[i,j]:3,' '); end;
 
assign(f,'matrixOut.txt'); rewrite(f);
for i:=1 to 9  do begin writeln(f);
                        for j:=1 to 14 do
                            write (f,L[i,j],' ');
                  end;
 
writeln;writeln;writeln;
writeln('Matrica uspechno zapisana v fail "matrixOut.txt"... ');
 
 
readln;
close(f);
end.