Составить программу в Паскале.
Заменить в тексте слово "sin" на слово "cos" и подсчитать количество замен.

var y,x: string; i,k: integer; begink=0;read (x);for i:=1 to length(x) dobegin y:=copy(x, i,3);If (y='sin') then begindelete (x, i, 3);insert ('cos', x, i);k:=k+1;end;writeln (x);writeln (k); end.