Прочитай отрывок из стихотворения С.Я. Маршака. Вечно ворчит На служанку хозяйка: Плохо погладила Платье, лентяйка.

Решение этой задачи на языке С++# include <iostream># include <math.h># include <cmath>using namespace std;int main(){     int b,a[1001] , i = 0 , j = 1 , k = 0;    while(cin>>b)    {        a[j] = b;        i++;        j++;    }    for(j = 2; j <= i; j++)    {        if(((a[j - 1] > 0) && (a[j] > 0))||((a[j - 1] < 0)&&(a[j] < 0))){        cout<<a[j-1]<<" "<<a[j];        return 0;    }    }    return 0;} 

Program masof;
var ar: array of integer;
i, j, temp, N: integer;
begin
readln(N);
setlength(ar, N+1);

for i:=1 to N do begin readln(ar[i]); end;

for i:=1 to N do begin
 temp:=0;
 for j:=1 to N do begin if ar[j]=ar[i] then inc(temp); end;
if temp>1 then write(ar[i], ' ');
end;
end.