Сturbo paskal в строке символов s удалить подстроку с m, всего n символов.

Delete (s,m,n) - вроде так

Var   a,b,c,p,q,h,x,y: real; begin   write('введите через пробел коэффициенты a,b,c: ');   read(a,b,c);   write('введите через пробел границы интервала [p; q]: ');   read(p,q);   write('введите шаг табуляции h: ');   read(h);   x: =p;   while x< =q+h/10 do begin       y: =c+x*(b+x*a); { схема горнера для вычисления значения полиномов }       writeln(x: 15: 8,y: 15: 8);       x: =x+h   end end. тестовое решение: введите через пробел коэффициенты a,b,c: -4 2.7 10.582 введите через пробел границы интервала [p; q]: -3 2.5 введите шаг табуляции h: 0.25       -3.00000000    -33.51800000       -2.75000000    -27.09300000       -2.50000000    -21.16800000       -2.25000000    -15.74300000       -2.00000000    -10.81800000       -1.75000000      -6.39300000       -1.50000000      -2.46800000       -1.25000000        0.95700000       -1.00000000        3.88200000       -0.75000000        6.30700000       -0.50000000        8.23200000       -0.25000000        9.65700000         0.00000000      10.58200000         0.25000000      11.00700000         0.50000000      10.93200000         0.75000000      10.35700000         1.00000000        9.28200000         1.25000000        7.70700000         1.50000000        5.63200000         1.75000000        3.05700000         2.00000000      -0.01800000         2.25000000      -3.59300000         2.50000000      -7.66800000

1. var a, b, s: real; begin readln(a,  b); s: =s*b; writeln(s); end. 2. var a, b, c, d, s: real; begin readln(a, b, c, d); s: =a+b+c+d; writeln(s); end. 3. var a, b, c, mult: real; begin readlb(a, b, c); mult: =a*b*c; writeln(mult); end. 4. var a, h, s: real; begin readlb(a, h); s: =a*h; writeln(s); end. 5. var a, b, o: real; begin readln(a, b); o: =a/b; writeln(o); end. 6. const pi=3.14; var r, l: real; begin readln(r); l: =2*pi*r; writeln(l); end. 7. const pi=3.14; var r, s: real; begin readln(r); s: =pi*sqr(r); writeln(s); end. 8. var a, s: real; begin readln(a); s: =sqr(a); writeln(s); end. 9. var a, h, s: real; begin readln(a, h); s: =a*h; writeln(s); end. 10. хз что это.