ОЧЕНЬ НУЖНА Выполнить программу в PascalABC для чисел из обоих диапазонов

ОБОЗНАЧЕНИЯ: БЦН(х) – ближайшее целое, не превосходящее х по модулю – trunc(x);

{x} - дробная часть числа - frac(x);

[x] - целая часть числа - int(x).

Дано трехзначное число N. Если оно оканчивается на 6, вывести сообщение об этом и, вычислить выражение n^1/2-3,58n/П+П , иначе вычислить 32,25/(n^2+3)(n+0,5) и вывести сообщение об этом.

Я конечно не против дополнительных , но я вам уже дал ответ.
#include <iostream>
#include <array>
#include <numeric>
using namespace std;

const size_t N = 10;

int main()
{
    size_t sum = 0;
    array<int, N> a = { 1, 5, 9, 6, 3, 0, 1, 4, -2, 4 };
    cout << "Count: ";
    cout << accumulate(a.cbegin(), a.cend(), 0, [&sum](size_t count, const int
num) {
                                                    if (num > 1 && num < 5) {
                                                        ++count;
                                                        sum += num;
                                                    }
                                                    return count;
                                                });
    cout << " Sum: " << sum << endl;
}

#include <iostream>
#include <array>
#include <numeric>
using namespace std;

const size_t N = 10;

int main()
{
    size_t sum = 0;
    array<int, N> a = { 1, 5, 9, 6, 3, 0, 1, 4, -2, 4 };
    cout << "Count: ";
    cout << accumulate(a.cbegin(), a.cend(), 0, [&sum](size_t count, const int
                                                                                                                num) {
                                                    if (num > 1 && num < 5) {
                                                        ++count;
                                                        sum += num;
                                                    }
                                                    return count;
                                                });
    cout << " Sum: " << sum << endl;
}