Ребята помогите пожалуйста решить эти задачи) 1) Задана строка. Удалить из нее два…

3) type char_array=array [1… 1000] of char; var a, b, c: char_array; s: string; i: =0; procedure add (c: char; var ca: char_array); var i: =0; begin repeat i: =i+1; until ord (ca[i])=0; ca[i]: =c; // writeln ('add — ',c,',i,',ca[i]); end; procedure show (ca: char_array); var i: =1; begin write (ca,': '); if ord (ca[i]) <> 0 then repeat write (ca[i], '); i: =i+1; until ord (ca[i])=0; writeln; end; begin read (s); for i: =1 to length (s) do if s[i] in ['0'… '9'] then add (s[i], a) else if (s[i] in ['A'… 'z']) or (s[i] in ['А'… 'я']) then add (s[i], b) else add (s[i], c); show (a); show (b); show (c); end.