Решите очень надо, заранее

Код#include <iostream>#include <vector>template <class T>T order_statistics (std::vector<T> a, unsigned n, unsigned k);int main() {    std::vector<int> seq;    int N, input;    std::cin >> N;    for (int q = 0; q < N; ++q) {        std::cin >> input;        seq.push_back(input);    }    double median;    unsigned int len = seq.size();    if (len % 2 == 1) {        median = order_statistics(seq, len, (len+1) / 2);    }    else {        median = (order_statistics(seq, len, (len+1) / 2) + order_statistics(seq, len, (len+1) / 2 + 1)) / 2.0;    }    std::cout << "Median of seq: " << median;    return 0;}template <class T>T order_statistics (std::vector<T> a, unsigned n, unsigned k){    using std::swap;    for (unsigned l=1, r=n; ; )    {        if (r <= l+1)        {            if (r == l+1 && a[r] < a[l])                swap (a[l], a[r]);            return a[k];        }        unsigned mid = (l + r) >> 1;        swap (a[mid], a[l+1]);        if (a[l] > a[r])            swap (a[l], a[r]);        if (a[l+1] > a[r])            swap (a[l+1], a[r]);        if (a[l] > a[l+1])            swap (a[l], a[l+1]);        unsigned                i = l+1,                j = r;        const T                cur = a[l+1];        for (;;)        {            while (a[++i] < cur) ;            while (a[--j] > cur) ;            if (i > j)                break;            swap (a[i], a[j]);        }        a[l+1] = a[j];        a[j] = cur;        if (j >= k)            r = j-1;        if (j <= k)            l = i;    }}

1)
program s_parallelogramm;
var
a,h,s: real;
begin
write('Основание = '); readln(a);
write('Высота = '); read(h);
if ((a=0) or (a<0)) or ((h=0) or (h<0)) then writeln('Ошибка! Значения основания и высоты должно быть натуральными числами')
else
begin
s:=a*h;
writeln('Площадь (S) параллелограмма = ', s);
end;
end.

2)
program sp_kvadrata;
var
a,p,s: real;
begin
write('Сторона квадрата = '); readln(a);
p:=4*a;
s:=sqr(a);
writeln('Периметр (P) квадарата = ', p);
writeln('Площадь (S) квадарата = ', s);
end.

3)
program e_kinet;
var
m,v,e: real;
begin
write('Масса тела (m, кг) = '); readln(m);
write('Скорость тела (v, км/ч) = '); readln(v);
e:=m*sqr(v)/2;
writeln('Кинетическая энергия (Ек, Дж) = ', e);
end.

1)
program vivod_chisel;
var
i, a: integer;
begin
a:=11;
for i:=1 to 45 do
begin
write(a:3);
a:=a+2;
end;
end.

2)
program sym_trex_chisel_krat5;
var
mas: array[1..900] of integer;
i,a,sym: integer;
begin
a:=100;
sym:=0;
for i:=1 to 900 do
begin
mas[i]:=a;
if mas[i] mod 5 = 0 then sym:=sym+mas[i];
a:=a+1;
end;
writeln('Сумма трехзначных чисел, кратных 5 = ', sym);
end.