col1, col2

while t < MM.tk do                             //F(x) = F(x0) + f(x)*h
      for i := 1 to col1 do
        begin
         MM.x0[i] := MM.x0[i-1] + MM.RP (MM.x0[i], t)*h;
         MM.MRes[0,i] := t;
         t := t + h;
         write('t', i, '=', t:2:2, '  ');
        end;
    for i := 1 to MM.n do
      for j := 0 to col1 do
        begin
        MM.MRes[i,j] := MM.x0[j];
        //write (MM.x0[i]:3:3);
        end;
    for i := 0 to col2-1 do
    begin
      writeln;
      for j := 0 to col1-1 do
      write(MM.MRes[j,i]:3:3, '  ');
    end;

  end;

end.