Ответы и объяснения

2013-12-03T15:55:22+00:00
Program z1;
var st:string; 
begin  
writeln('Введите строку');
readln(st);   
while (pos(' ',st) <> 0) do
begin
delete(st, pos(' ',st), 1);        
end;  
writeln(st);  
readln;
end.