составить программу в паскале
удалить все пробелы в строке

program znanija;var s,r:string;    i:integer;beginRead(s);for i:=1 to length(s) do  begin    if s[i] <> ' ' then r:=r+s[i];  end;Writeln(r);end.Один из вариантов решения