1. Составить программу которая в введенном тексте удаляет пробелы 2. Составить…

Var a, b, c, i: integer; s: string; beginread (s); for i: =1 to length (s) do if s[i]=' then delete (s,i,1); write (s); end.var a, b, c, i: integer; s, k: string; beginread (s); k: ='kk'; for i: =1 to length (s) do if s[i]=' then insert (k,s,i+1); write (s); end.var a, b, c, i: integer; s: string; beginread (s); for i: =1 to length (s) do if s[i]=',' then a: =i; write (a); end. Благодарность не помешает.