Составить программу вычисления значений функции f(x) на отрезке [a; b] с шагом h. результат представить в виде таблицы f(x)=корень из х*соs^2x

// pascalabc.net 3.2, сборка 1385 от 14.02.2017 // внимание! если программа не работает, обновите версию! begin   var a,b,h: real;   write('введите a,b,h: '); read(a,b,h);   var n: =trunc((b-a)/h);   for var i: =0 to n do begin       var x: =a+i*h;       var y: =cos(x)*sqrt(x);       writeln(x: 6: 3,y: 15: 5)       end end. пример введите a,b,h: 0.2 3.2 0.3   0.200              0.43830   0.500              0.62054   0.800              0.62315   1.100              0.47574   1.400              0.20111   1.700            -0.16799   2.000            -0.58852   2.300            -1.01046   2.600            -1.38169   2.900            -1.65348   3.200            -1.78580

Var  a: array[1..10, 1..10] of real;   n, m, i, j, i1, j1, i2, j2: byte;   min, max: real; begin  writeln('введите кол-во строк и столбцов');   read(n, m); writeln;   for i : = 1 to n do  begin    writeln('введите ', m, ' эл. ', i, '-й строки матрицы');     for j : = 1 to m do read(a[i, j]) end;   writeln('ваша матрица: ');   for i : = 1 to n do  begin    for j : = 1 to m do write(a[i, j]: 7: 2);     writeln end;   for i : = 1 to n do  begin    min : = a[i, 1]; i1 : = i; j1 : = 1;     for j : = 1 to m do     if a[i, j] < min then begin        min : = a[i, j]; i1 : = i; j1 : = j      end;       if i = 1 then    begin   max : = min; i2 : = i1; j2 : = j1    end    else    if min > max then    begin      max : = min; i2 : = i1; j2 : = j1    end  end;   writeln('максимальным из минимумов строк является элемент ', max: 6: 2, ' с индексами [', i2, ',', j2, ']'); end.