Решите на языке паскаль

дан целочисленный массив из 10 элементов вывести на экран все его нечетные элементы предварительно расположив их по возрастанию методом выбора​

Ms dos qbasic 1.0: cls randomize timer input "k = ", k input "l = ", l dim x! (k, l) for i = 1 to k       for j = 1 to l               x(i, j) = rnd * 21 - 10               print using "###"; x(i, j);               print ; " ";       next j       print next i for i = 1 to l * 4 - 1       print ; "_"; next i print for n = 1 to l       for i = 1 to l - n - 1               if x(i, 2) < x(i + 1, 2) then               b = x(i, 2)               x(i, 2) = x(i + 1, 2)               x(i + 1, 2) = b               end if       next i next n for i = 1 to k       for j = 1 to l               print using "###"; x(i, j);               print " ";       next j       print next i end

Ll - long long

dp[i] = dp[i-1] + dp[i-2] + dp[i-5] + dp[i-10];
ll dp[666];
dp[0] = 1;
for(int i=0;i<=64;i++)
{
dp[i+1]+=dp[i];
dp[i+2]+=dp[i];
dp[i+5]+=dp[i];
dp[i+10]+=dp[i];
cout << i << ": " << dp[i] << endl;
}
это если порядок важен, то есть 2 + 1 != 1 + 2, тогда ответ
489475342266653, наверное
а иначе 644

ll ans=0;
for(int i=0;i<10;i++) // 10
{
for(int j=0;j<20;j++) // 5
{
for(int k=0;k<50;k++) // 2
{
ll now = i*10 + j*5 + k*2;
if(now<=64) ans++;
}
}
}
cout << ans;