program lab9 APPTYPE CONSOLE uses SysUtils Windows var array 10 10 of

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
program lab9;
{$APPTYPE CONSOLE}
uses
SysUtils,
Windows;
var
m: array[10,10] of integer;
n, i, j, res: integer;
src, dest: TextFile;
begin
setConsoleCP(1251);
setConsoleOutputCP(1251);
AssignFile(src, paramstr(1));
Reset(src);
AssignFile(dest, paramstr(2));
Rewrite(dest);
read(src, n);
for i := 1 to n do
for j := 1 to n do
read(src, m[i,j]);
for i := 1 to n do begin
for j := 1 to n do
write(src, m[i,j]);
writeln(src, '');
end;
end.