.Составить блоксхему для программы квадрат,с использованием процедур и циклов.

#include <iostream>
using std::cout;
using std::endl;
#include <cstdlib>
using std::rand;
using std::srand;
#include <ctime>
using std::time;

int main()
{
    int bc[30];
    int sumEven = 0, sumEvenIndex = 0;

    srand(time(0));

    for(int i = 0; i < 30; i++)
    {
        bc[i] = rand() % 51;

        if(bc[i] % 2 == 0)
        {
            sumEven += bc[i];
        }
        if(i % 2 == 0)
        {
            sumEvenIndex += bc[i];
        }

        cout << bc[i] << ' ';
    }
    cout << endl << endl;

    int temp, biggest;
    for(int i = 0; i < 30 - 1; i++)
    {
        biggest = i;

        for(int j = i + 1; j < 30; j++)
        {
            if(bc[biggest] < bc[j])
            {
                biggest = j;
            }
        }
        temp = bc[i];
        bc[i] = bc[biggest];
        bc[biggest] = temp;
    }

    for(int i = 0; i < 30; i++)
    {
        cout << bc[i] << ' ';
    }

    cout << "\nThe sum of elements with even indices = " << sumEvenIndex
        << "\nThe sum of even elements = " << sumEven << endl;

   return 0;
}

var X : Word;  

begin  

Write('Введите натуральное число (до 65 535) : '); ReadLn(X);  

WriteLn(X, ' - ', Inverse(X), ' = ', X-Inverse(X));  

end.  

… где функция Inverse — пара строчек, но «интеллектуальная собственность» , а значит не бесплатно ;-)

Также можно еще один вариант решения:uses crt;  

var x, y, first, second, third, raz:integer;  

Begin  

ClrScr;  

WriteLn('Введите трехзначное число');  

Readln(x);  

first:=x div 100;  

second:=(x div 10 mod 10)*10;  

third:=(x mod 10)*100;  

y:=third+second+first;  

raz:=abs(x-y);  

WriteLn('Разность чисел ',x,' и ',y,' равна ',raz);  

Readln();  

End.