Pascal. Дана строка. Заменить каждый символ,встречающийся после первого вхождения '*' на '_'.

var s:string; i:integer;begin assign (input, 'input.txt'); reset(input); assign (output, 'output.txt'); rewrite(output); read(s); for (i):=Pos('*',s) to (length(s)) do s[i]:='_'; write(s);end.