program PascalGuru;
var C:array[1..100,1..100] of integer;
i,j,n,k:integer;

begin

for i:=1 to 7 do
for j:=1 to 10 do C[i,j]:=1+random(25);{begin
write ('C[',i,',',j,']='); readln (C[i,j]); end; }

write ('Vvedennyi massiv C: ');
for i:=1 to 7 do begin writeln;
for j:=1 to 10 do write (C[i,j]:3,' '); end;

writeln;writeln;
write ('a) massiv C: ');
for j:=1 to 10 do begin writeln;
for i:=1 to 7 do write (C[i,j]:3,' '); end;

writeln;writeln;
write ('b) massiv C: ');
for i:=1 to 7 do
begin
writeln;
if i>1 then
for k:=1 to (i*2)-2 do write(' ');
for j:=1 to 10 do write (C[i,j]:3,' ');
end;

readln;
end.