РЕШИТЬ!! надо с математического вида перевести в паскаль

#include < bits/stdc++.h> using namespace std; int main() {       int a[10][10];       int n = 10;       for (int i = 0; i < n; ++i) {               for (int j = 0; j < n; ++j)               {                       a[i][j] = rand() % 10 - 5;               }       }       for (int i = 0; i < n; ++i) {               for (int j = 0; j < n; ++j) {                       if (a[i][j] > 0)                               a[i][j] = 1;                       else if (a[i][j] < 0)                               a[i][j] = 0;               }       }       for (int i = 0; i < n; ++i) {               for (int j = 0; j < n; ++j)               {                       cout < < a[i][j] < < " ";               }               cout < < '\n';       }       for (int i = 0; i < 10; i++) {               for (int j = 0; j < 10; j++) {                       if (j < i)                               cout < < a[i][j] < < " ";               }               cout < < '\n';       } }