1. Из слова «пробел» путем замены его букв получить слово «продел» 2. В данной…

1) vars: string; begins: ='пробел'; writeln (s); delete (s,4,1); insert ('д',s,4); writeln (s); end.2) vari: integer; a,b: string; beginreadln (a); b: ='; for i: =1 to length (a) dob: =b+a[i]+'; writeln (b); end.3) vara: string; beginreadln (a); if a[2]=a[4] then writeln ('равны') else writeln ('не равны'); end.