var a:array[1..9,1..9] of boolean;
i,n,j,k:byte;
f:text;
buf:boolean;
begin
n:=0;
assign(f,'file.txt');
reset(f);
while not eoln(f) do
begin
read(f,i);
inc(n);
end;
reset(f);
for i:=1 to n do
for j:=1 to n do
begin
read(f,k);
if k=0 then a[i,j]:=false else a[i,j]:=true;
end;
writeln;
writeln('ishodnaea:');
for i:=1 to n do
begin
for j:=1 to n do
begin
case a[i,j] of
true :write(' true ');
false:write(' false');
end;
end;
writeln;
end;
k:=trunc(n/2);
for i:=1 to n do
begin
for j:=1 to k do
begin
buf:=a[i,j];
a[i,j]:=a[i,n-j+1];
a[i,n-j+1]:=buf;
end;
end;
for i:=1 to n do
begin
for j:=1 to k do
begin
buf:=a[i,j];
a[i,j]:=a[n-j+1,i];
a[n-j+1,i]:=buf;
end;
end;
writeln;
writeln('New:');
for i:=1 to n do
begin
for j:=1 to n do
begin
case a[i,j] of
true :write(' true ');
false:write(' false');
end;
end;
writeln;
end;
readln
end. |
