Напишите программу в паскале номер 8

#include <iostream>

#include <cmath>

using namespace std;

int main()

{

   int number, coun = 0, d, first, last;

   double pwr;

   setlocale(LC_ALL, "Russian");

   cout << "Поменять первую и последнюю цифры числа>" << endl;

   cout << "Введите число: ";

   cin >> number;

   d = number;

   while (d > 0)

   {

       d /= 10;

       coun++;

       cout << "count = " << coun << endl;

   }

   pwr = pow(10, coun-1);

   //к примеру число равно 321

   //first = 3

   //last = 1

   //number = 32

   //number = 323

   //number = 23

   //number = 123

   first = number / (int)pwr;

   last = number % 10;

   number /= 10;

   number = number * 10 + first;

   number %= int(pwr);

   number += last * int(pwr);

   cout << "Result: " << number << endl;

   return 0;

}

Программа 1 Создаётся обработка нажатия кнопки Объявляется переменная A и S типа int A присваивается значение 2 строки 2 столбца из таблицы Excel S и  i приравниваются к нулю Цикл до тех пор, пока S не будет больше A, в котором выполняется прибавление единицы к S и i Также в цикле происходит заполнение i + 1 строки 1 столбца.Программа 2Создаётся обработка нажатия кнопкиОбъявляется R2, R3, R1beg, R2End, dR1, R12, R13, R23 типа float R2 парсит значение из ячейки 3 строки 1 столбца (Val(), скорее всего, примерная аналогия к TryParse()) R3 парсит значение 3 строки 2 столбца R1beg 3 строки 3 столбцаR1End 3 строки 4 столбцаdR1 3 строки 5 столбца Значению NumRow присваивается 6Создаётся цикл: R1 = R1beg с условием, пока R1 не будет меньше или равен R1End, при этом каждую итерацию происходит добавление dR1 к R1 В этом цикле R12 присваивается значение R1 + R2 + (R1 * R2 / (double)R3), причём R3 явно приводится к типу doubleТак же происходит и с R13, которому присваивается R1 + R3 + (R1 * R3 / (double)R2)Так же происходит и с R23, которому присваивается R2 + R3 + (R2 * R3 / (double)R1)Поочередно в ячейки NumRow строки 1-4 (с первого по четвёртый) столбца заносятся приведённые к строке значения R1, R12, R13, R23, после чего к NumRow добавляется единица.Программа 3Создаётся цикл, где i = 1 с условием i меньше или равно 5, i с каждой итерацией прибавляет к себе единицуБерётся значение ячейки 3 строки i столбца и приравнивается к пустой строке ("")Создаётся цикл, где j = 6 с условием j меньше или равно 16, j с каждой итерацией прибавляет к себе единицуБерётся значение ячейки j строки 1 столбца и приравнивается к пустой строке ("")Создаётся цикл, где k = 6 с условием k меньше или равно 16, k с каждой итерацией прибавляет к себе единицуБерётся значение ячейки k строки 2 столбца и приравнивается к пустой строке ("")Создаётся цикл, где A = 6 с условием A меньше или равно 16, A с каждой итерацией прибавляет к себе единицуБерётся значение ячейки A строки 3 столбца и приравнивается к пустой строке ("")Создаётся цикл, где b = 6 с условием b меньше или равно 16, b с каждой итерацией прибавляет к себе единицуБерётся значение ячейки b строки 4 столбца и приравнивается к пустой строке ("")