решить ребус спс заранее ​

Var     n, m, sum: integer;   begin     sum : = 0;     repeat     writeln('введите числ с которого начинается ряд');     readln(n);     writeln('введите число которым заканчивается ряд');     readln(m);     until n< m;       if odd(n) then n : = n + 1;     if odd(m) then m : = m - 1;     sum : = (n + m) * (m - n + 2) div 4;     writeln('сумма чётных чисел натурального ряда: ', sum); end.

   

Код на C++:

#include <iostream>

using namespace std;

int main()

{

   setlocale(LC_ALL, "rus");

   

   int color;

   cin >> color;

   switch (color)

   {

   case 0:

       cout << "Красный";

       break;

   case 1:

       cout << "Оранжевый";

       break;

   case 2:

       cout << "Желтый";

       break;

   case 3:

       cout << "Зеленый";

       break;

   case 4:

       cout << "Голубой";

       break;

   case 5:

       cout << "Синий";

       break;

   case 6:

       cout << "Фиолетовый";

       break;

   default:

       cout << "Нет такого цвета";

       break;

   }

   cout << endl;

   return 0;

};

Объяснение: