Написать программу pascal abc в исходном файле записана речь подростка, в которой часто встречается слово паразит «ко роче», например: «мама, короче, мыла, короче, раму.» убрать из текста все слова паразиты (должно остаться «мама мыла раму.»).

s : = 0

for i : = 1 to n do

  if i mod 2 = 1 then

      s : = s - 1/2/n

  else

      s : = s + 1/2/n;

var a: array [1..5] of integer; s,i: integer; begin      for i : = 1 to 5 do  begin      writeln('a[',i,']=');       read(a[i]);         s: =s + a[i]  end;   writeln('s=',s); end.