Program PascalGuru;
label 1;
 
var i:integer;
    s:string;
 
begin
write('Vvedite stroku:'); readln(s);
writeln('Ishodnaya stroka: ',s);
 
i:=1;
repeat
if copy(s,i,2)='  ' then delete(s,i,1) else inc(i);
until i>length(s);
 
writeln;
writeln('Preobrazovannaya stroka: ',s);
 
readln;
end.