Паскаль. ! n натуральное число и последовательность символов (строка) s1,s2 sn. замените простые скобки в цепочке символов вертикальными скобками;

program raf105;

var

 s:string;

 n,i:integer;

begin

writeln('Введите строку:');

readln(s);

writeln('Введите номер символа после которого не нужно заменять скобки:');

readln(n);

for i:=1 to n do

 if (s[i] = '(') or (s[i] = ')')

   then s[i]:= '|';

writeln('Отредактированный вариант строки:');

writeln(s);

end.

Язык PascalABC