uses crt;
Var
S:String;
Begin
readln(S);
while pos(' ',S)>0 do delete(S,pos(' ',S),1);
{while S[1]= ' ' do delete(S,1,1);
while S[length(S)]=' ' do delete(S,length(S),1);}
write(S);
Readln;
End.
Mình cho 2 câu lệnh sau vào dấu { }, bạn chạy thử CT, nếu đúng thì bạn có thể bỏ, thiếu trường hợp thì bạn thêm vào, tại lần đầu làm bài này