Покажите на бумаге, что будет выведено на экран в результате работы следующего фрагмента программы: X = 2 Y = 3 PRINT “X =” ; X , “Y =” ; Y X = Y Y = X PRINT X , Y , 3

//pascal abc.net v3.1 сборка 1172 var   ar: array of array of integer;   n, m, i, j: integer; begin   read(n, m);   setlength(ar, n);   for i : = 0 to n - 1 do       setlength(ar[i], m);   writeln('enter matrix: ');   for i : = 0 to n - 1 do   begin       writeln;       for j : = 0 to m - 1 do           read(ar[i, j]);   end;   writeln;   writeln('first matrix: ');   for i : = 0 to n - 1 do   begin       writeln;       for j : = 0 to m - 1 do           write(ar[i, j]: 4);   end;   writeln;   writeln('final matrix: ');   for i : = 0 to n - 1 do   begin       writeln;       for j : = 0 to m - 1 do       begin           if ar[i, j] mod 2 = 0 then ar[i, j] : = ar[i, j] div 2;           write(ar[i, j]: 4);       end;   end; end. пример ввода: 2 3 enter matrix: 1 2 3 4 5 6 пример вывода: first matrix:     1    2    3     4    5    6 final matrix:     1    1    3     2    5    3