program qq;
var a:array[1..10, 1..10] of integer;
    i, j, S:integer;
begin
for i:= 1 to 10 do
 for j:= 1 to 10 do
  a[i, j]:=random(100);
for i:= 1 to 10 do
 for j:= 1 to 10 do
  begin
  write(a[i, j], ' ');
  if j=10 then writeln();
  end;
write('Ââåäèòå S: ');
readln(S);
for i:=1 to 10 do
 write(a[i, S], ' ');
writeln();
end.