Lab2

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

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

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

SetLength(matrix, M, N);
{Заполнение матрицы нулями, для корректной работы}
for i:=0 to M - 1 do
  begin
    for j:=0 to N - 1 do
    begin
      matrix[i, j] := 0;
    end;
  end;

WriteLn('1st task');
  for i:=0 to M - 1 do
  begin
    for j:=0 to N - 1 do
    begin
      matrix[i, j]:= i*10;
      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[i, j] := 5 * j;
      write(matrix[i, j]:4)
    end;
    WriteLn;
  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.