Придумать свою задачу и написать программу в Pascal для ее решения. Программа должна содержать ветвление (условный оператор) и цикл

30 лет назад весь мир заворожённо наблюдал рождение блокбастеров века – «Терминатор», «Звёздные войны», «Робокоп». Советские дети просто зачитывались повестями Кира Булычёва, а любимыми фильмами были «Гостья и будущего» и «Лиловый шар». Волна научной фантастики и роботомании захватила умы советской молодёжи. И посей день, роботы вызывают самый неподдельный интерес у молодого поколения.

На самом деле, история робототехники уходит своими корнями в глубокую древность. Аж за 350 лет до нашей эры был создан первый в истории механический голубь. Его создатель – древнегреческий математик Архит – заложил прочный фундамент для дальнейшего развития механики.

Вообщем, робототехника нам нужна, в наше время роботы нужны, то чего не можем сделать мы , сделают они - роботы.

ИТМО пишете?

GNU C++

#include <iostream>

#include <vector>

using namespace std;

signed main() {

   int N,k=0;

   cin>>N;

   int a[N];

   vector<pair<int,int> >b;

   for(int i=0;i<N;i++)

   {

       cin>>a[i];

   }

   int c = 1;

   for(int i=1;i<N;i++)

   {

       if (a[i]==a[i-1])

       {

           c++;

       }

       else

       {

           b.push_back(make_pair(a[i-1],c));

           c=1,k++;

       }

   }

   b.push_back(make_pair(a[N-1],c));

   cout<<k<<endl;

   for(int i=0;i<b.size();i++)

   {

       cout<<b[i].first<<' '<<b[i].second<<endl;

   }

   return 0;

}