с информатикой В файле input.txt в столбик записаны числа. Определить длину максимальной подпоследовательности одинаковых чисел. На Паскале

Если не вдаваться в несущественные детали, то будущее за виртуальным общением. Пока мы вынуждены, из-за своего невежества, снимать театр. Когда изобрели кино, то не изобрели еще крупного плана Эйзенштейна, и других эффективных приемов, которые сейчас применяются повсеместно. Попросту не знали, что делать с кино. Так и с виртуальным общением. Пока мы к нему подходим со своими старыми взглядами. Главное достоинство виртуального общения – возможность каждого человека принимать участие в практически неограниченном количестве проектов. Современные социальные сети только отчасти решают эти проблемы. Instagram, позволяющий делиться творчеством с друзьями, Twitter …. – только первые ласточки. Главное достоинство виртуальных сетей – возможность бороться с проклятьем бесконечности при друзей-экспертов в самых разнообразных областях предметной деятельности. В ближайшие годы мы будем наблюдать появление социальных сетей нового типа, обобщающие возможности научных конференций, типа четвергов у Ландау, и объединяющие миллионы к созидательному творчеству в самых разнообразных областях предметной деятельности. Безусловно, новые общения имеют недостатки с точки зрения тех, кто привык к традиционным методам. Но, это только в Египте ученики на протяжении 2 тысяч лет учились по неизменному учебнику «Послание отца сыну». Сейчас, в эпоху информационного взрыва старший брат не может понять младшего, не говоря о более солидном поколении. Такая судьба современного человека. Все, к сожалению, происходит почти в соответствии с древним китайским пожеланием врагу: «Чтоб ты жил в эпоху перемен». Но мы должны мужественно принимать удары судьбы, потому что у нас нет выбора, или прогресс, или гибель будущих поколений.  

#include "stdafx.h"
#include "iostream"    //Подключаем библиотеку ввода вывода
#include "math.h"      //библиотека математических функций

#include <windows.h>

using namespace std;   //подключение пространства имён std - открывает
//доступ к cin и cout из библиотеки iostream

int main()   //начало программы
{
SetConsoleCP(1251);   //если будешь компилировать     SetConsoleOutputCP(1251);   //то это для подключения русского языка в консоли

float x, y, z;   //объявление вещественных переменных
cout<<"Введите значение X";   //вывод строки
cin>>x;   //вводим число
y=sqrt(x);   //считаем y
if ((x<3) || (x>8))    //условие. если (x<3 или x>8)  
z=x*y; //есил истино z=x*y
else z=x+y; //иначе z=x+y

cout<<"z= "<<z;  //вывод результата

cout<<"Для завершения программы нажмите любую клавишу...";
cin.get();
cin.get();
return 0;
}