var

i,k:byte;

a,b:string;

begin

write('nhap xau : ');

readln(a);

k:=length(a);

b:= ' ';

for i:=1 to k do

if a[i] <>' ' then b:=b+a[i] ;

writeln('ket qua',b);

readln;

end