cứu:( abbababababbabababbababab

program chaine;
uses crt;
var ouv, fer: text;
    S: string;
    indi: integer;
    
begin
    clrscr;
    
    assign(ouv, 'NENXAU.INP');
    reset(ouv);
    assign(fer, 'NENXAU.OUT');
    rewrite(fer);
    
    readln(ouv, S);
    
    indi := 1;
    while indi < length(S) do 
        if upcase(S[indi]) = upcase(S[indi + 1]) then 
            delete(S, indi + 1, 1)
        else
            indi := indi + 1;

    
    for indi := 1 to length(S) do
        write(fer, lowercase(S[indi]));
    
    close(ouv);
    close(fer);
    
    readln
end.
    

#include <bits/stdc++.h>
using namespace std;
int main() {
   freopen("NENXAU.INP", "r", stdin);
   freopen("NENXAU.OUT", "w", stdout);
    string s;
    getline(cin, s);
    char l = '\0';  
    for (char c : s) {
        if (islower(c)) {
            if (c != l) {
                cout << c;
                l = c;
            }
        }
    }
    return 0;
}