Программа должна быть на языке паскаль 'x' и 'n' должны вводиться пользователем

Var   a,b,h,x,y: real; label m; begin   write('введите a,b,h : ');   read(a,b,h);   x: =a; m:   if x< =b+h/2 then begin       y: =2*sqr(sin(x))+1;       writeln(x: 12: 7,y: 18: 7);       x: =x+h;       goto m       end end. пример введите a,b,h : -5 4 0.2   -5.0000000                2.8390715   -4.8000000                2.9846879   -4.6000000                2.9748436   -4.4000000                2.8110930   -4.2000000                2.5192887   -4.0000000                2.1455000   -3.8000000                1.7487402   -3.6000000                1.3916487   -3.4000000                1.1306025   -3.2000000                1.0068151   -3.0000000                1.0398297   -2.8000000                1.2244341   -2.6000000                1.5314833   -2.4000000                1.9125010   -2.2000000                2.3073329   -2.0000000                2.6536436   -1.8000000                2.8967584   -1.6000000                2.9982948   -1.4000000                2.9422223   -1.2000000                2.7373937   -1.0000000                2.4161468   -0.8000000                2.0291995   -0.6000000                1.6376422   -0.4000000                1.3032933   -0.2000000                1.0789390     0.0000000                1.0000000     0.2000000                1.0789390     0.4000000                1.3032933     0.6000000                1.6376422     0.8000000                2.0291995     1.0000000                2.4161468     1.2000000                2.7373937     1.4000000                2.9422223     1.6000000                2.9982948     1.8000000                2.8967584     2.0000000                2.6536436     2.2000000                2.3073329     2.4000000                1.9125010     2.6000000                1.5314833     2.8000000                1.2244341     3.0000000                1.0398297     3.2000000                1.0068151     3.4000000                1.1306025     3.6000000                1.3916487     3.8000000                1.7487402     4.0000000                2.1455000

Арифметическая прогрессия: a1 = a n = |b-a|+1 d = 1 следовательно, среднее арифметическое чисел от a до b: код кумир: алг нач   цел a, b   вывод "a = "; ввод a   вывод "b = "; ввод b   если a < = 0 и b < = 0       то вывод "между a и b нет натуральных чисел"       иначе           если a < =0 то a: = 1 всё           если b < =0 то b: = 1 всё           вывод "sr = ", (2*a+abs(b-a))/2   всё кон