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.