Описать процедуру trim(s), удаляющую в строке s начальные и конечные пробелы.

Easy! function trim(s: string): string; begin delete(s,1,1); delete(s,length(s), length(s)); result: =s; end;

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   // 1   var a: =arrrandom(100,-20,20); a.println;   a.where(x-> x> 5).println;   // 2   var b: =arrrandom(10,-50,50); b.println;   writeln(b.average);   // 3   var c: =arrrandom(10,-30,30); c.println;   var d: =c.select(x-> x*x); d.println end. пример 3 0 -2 4 17 8 20 -1 -20 18 -6 -9 4 15 -18 -8 0 -17 3 -19 16 -7 -8 16 -19 11 20 2 12 -3 8 9 -13 20 1 1 13 9 15 15 -7 -16 8 13 -3 -9 -16 -17 7 5 -15 -13 18 -16 -1 -11 -13 2 2 -14 9 -3 7 3 -11 6 -16 4 -6 1 -1 11 -11 8 9 11 5 0 -2 10 6 16 16 -13 -8 1 11 -17 1 -9 -6 -10 -14 8 -14 16 -2 -15 4 12 17 8 20 18 15 16 16 11 20 12 8 9 20 13 9 15 15 8 13 7 18 9 7 6 11 8 9 11 10 6 16 16 11 8 16 12 -32 1 24 -36 -37 -14 45 -26 -11 20 -6.6 6 11 -25 19 1 19 3 0 -14 13 36 121 625 361 1 361 9 0 196 169

Const n=10;   var a: array[1..n] of integer; i,t: integer;   begin randomize; writeln('a: '); for i: =1 to n do   begin   a[i]: =random(21)-10;   write(a[i]: 4);   end; writeln; for i: =1 to n div 4 do   begin t: =a[i]; a[i]: =a[n div 2-i+1]; a[n div 2-i+1]: =t;     t: =a[n div 2+i]; a[n div 2+i]: =a[n-i+1]; a[n-i+1]: =t; end; writeln('new a: '); for i: =1 to n do write(a[i]: 4); writeln; end. пример: a:   -8 -10 -7 4 -6 10 7 10 -7 1 new a:   -6 4 -7 -10 -8 1 -7 10 7 10