Lab2

uses
  System.SysUtils;


var
  matrix: array  of array of integer;
  M, N, I, J, K, L : integer;

begin
Write('M - ' );
ReadLn(M);

Write('N - ' );
ReadLn(N);

SetLength(matrix, M, N);
WriteLn('1st task');
  for i:=0 to M - 1 do
  begin
    for j:=0 to N - 1 do
    begin
      matrix[i][j]:= 10*i;
      Write(' ', matrix[i][j]);
      if j = N-1 then WriteLn;
    end;
  end;

{Присвоение каждому элементу матрицы значение 0, для корректной работы}
for i:=0 to M - 1 do
  begin
    for j:=0 to N - 1 do
    begin
      matrix[i][j] := 0;
    end;
  end;


WriteLn('2nd task');
  for i:=0 to M - 1 do
  begin
    for j:=0 to N - 1 do
    begin
      matrix[j][i]:= 5*j;
      Write(' ', matrix[j][i]);
      if j = N-1 then WriteLn;
    end;
  end;

{Присвоение каждому элементу матрицы значение 0, для корректной работы}
for i:=0 to M - 1 do
  begin
    for j:=0 to N - 1 do
    begin
      matrix[i][j] := 0;
    end;
  end;

WriteLn('3rd task');
  for i:=0 to M - 1 do
  begin
    for j:=0 to N - 1 do
    begin

      matrix[i][j]:= i + j;
      Write(' ', matrix[i][j]);
      if j = N-1 then WriteLn;
    end;
  end;

{Присвоение каждому элементу матрицы значение 0, для корректной работы}
for i:=0 to M - 1 do
  begin
    for j:=0 to N - 1 do
    begin
      matrix[i][j] := 0;
    end;
  end;

WriteLn('4th task');
  for i:=0 to M - 1 do
  begin
    for j:=0 to N - 1 do
    begin

      matrix[i][j]:= i - j;
      Write(' ', matrix[i][j]);
      if j = N-1 then WriteLn;
    end;
  end;
{Присвоение каждому элементу матрицы значение 0, для корректной работы}
for i:=0 to M - 1 do
  begin
    for j:=0 to N - 1 do
    begin
      matrix[i][j] := 0;
    end;
  end;

WriteLn('5th task');
Write('(1 < K < ', M , ' K = ');
Read(K);

k:= k - 1;
  for i:=0 to M - 1 do
  begin
    for j:=0 to N - 1 do
    begin
      {Заполнение матрицы числами i+1}
      matrix[i][j]:= i + 1;

      if j = N - 1 then WriteLn;
      if i - 1 = k then
      begin
        for L := 0 to N - 1  do
        begin
         Write(matrix[i - 1][l], ' ');
          k:= k - 1;
        end;

      end;
    end;
  end;
ReadLn;

ReadLn;
end.