program lab10B;
var mas: array[1..100, 1..100] of integer;
    k1, k2, c, i, m, n, k: integer;
    
begin      
            randomize;
            writeln('vvedit k1, k2, m, n: '); readln(k1, k2, m, n);
            for k := 1 to m do begin
                for i := 1 to n do begin
                    mas[k, i] :=  random(500)-500;
                    write(mas[k,i]:5)
                end;
                writeln;
                
            end;
            
            
            
            for i := 1 to n do begin
            
            c := mas[k1,i];
            mas[k1,i] := mas[k2,i];
            mas[k2,i] := c;
          
            end;
            
            writeln('_____________________');
            for k := 1 to m do begin
                for i := 1 to n do begin
                 
                    write(mas[k,i]:5)
                end;
            end;

end.