Что будет напечатано в результате выполнения этой программыprogram probel;var s:string[50]; i: integer;begins:='про ток 2';i:=1;while i<=length(s) do if s[i]=' ' then delete (s,i,1) else i:=i+1;writeln(s);end.