Восстановление ответа procedure restore(i, k : integer); begin if (i = 0) or (k = 0) then begin exit; end; if (back[i][k] = 1) then begin restore(i – 1, k – 1); write(a[i]); end else if (back[i][k] = 2) then begin restore(i – 1, k); end else begin re
{}