program PascalGuru;
uses crt;
label 1;
 
var s:string;
    i:integer;
 
 
begin
write('Vvedite stroku [massiv simvolov]: ');
readln(s);
 
1:
for i:=2 to length(s) do
if s[i-1]=s[i] then begin delete(s,i,1); goto 1; end;
 
writeln('Rezulitat: ',s);
 
readln;
end.