Срешением в pascal.

1. вывести на экран и в новый файл все символы исходного файла, стоящие после первой запятой в тексте. предусмотреть случай, что запятой может не быть в файле.
2. в предложениях исходного текстового файла некоторые из слов могут быть записаны подряд несколько раз (предложение заканчивается точкой или восклицательным знаком). получить в новом файле отредактированный текст, в котором удалены повторные вхождения слов в предложениях.

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var n:=ReadInteger('n=');
  var a:=MatrixRandom(n,n,10,99);
  var s:=0;
  var k:=0;
  for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do Print(a[i,j]);
    Writeln;
    if a[i,i].IsEven then begin s+=a[i,i]; Inc(k) end;
    end;
  if k>0 then Writeln('S=',s/k:0:2)
  else Writeln('На главной диагонали нет четных элементов')
end.

Тестовое решение
n= 8
63 13 33 90 25 21 87 91
88 88 48 13 30 59 81 27
73 23 76 77 52 19 33 97
53 87 13 74 17 35 61 70
77 96 51 61 82 33 63 22
39 88 84 54 88 73 74 69
76 26 69 14 45 80 70 54
80 36 47 38 18 22 84 62
S=75.33

Овощи и фрукты, которые мы покупаем в супермаркетах, скорее всего, обрабатывали химическими веществами, чтобы увеличить срок хранения. Свой негативный вклад могли внести сборщики плодов, также существует вероятность, что они пострадали при транспортировке.

Поэтому простого мытья проточной водой перед их употреблением явно недостаточно. Чтобы не нанести вреда организму и не ухудшить состояние собственного здоровья, необходимо обработать свежие фрукты и овощи таким образом, что полностью смоются остатки химических препаратов, а также возможные бактерии и вирусы, объясняет Joinfo.com

Традиционный метод – мытье водой с яблочным уксусом. Для этого наполните большую салатницу водой и добавьте туда яблочный уксус (правильные пропорции – по столовой ложке уксуса на литр воды). Оставьте овощи или фрукты в уксусной воде на пять минут, а затем тщательно смойте липкие загрязнения. В случае картофеля, моркови или пастернака не возбраняется использовать чистую щетку. Останется тщательно сполоснуть продукты под струей холодной воды.