"Перестав быть спорной, мысль перестает быть интересной"

Найти меру полезности и меру релевантности афоризма, желательно, с решением

Написать программу, которая выводит на экран сумму ряда


пусть a – числитель; b – знаменатель; da и db – шаг для числителя и знаменателя; n  -  для смены знака;    
Программа:
const
da=  -18; {927-945}
db= 24;   {33-9}
var a,b,n: integer;
s: real;
     begin
         s:=0; n:=1; a:=945;b:=9;      
             while a>=27 do      
                   begin      
                         s:=s+a/b*n;    {подсчет суммы}      
                         a:=a+da;      
                         b:=b+db;      
                         n:= -1*n;        {изменение знака}        
                  end;
writeln('s=',s:4:2);
end.

// Напишите программу, которая в последовательности натуральных чисел определяет количество
//чисел, кратных 3. Программа получает на вход количество чисел в
//последовательности, а затем сами числа. В последовательности всегда имеется число,
//кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300.
//Программа должна вывести одно число - количество чисел, кратных 3.

Var  i,j,x  :word;
     n      :integer;
begin
  writeln('Введите количество цифр в последовательности');
  Readln (j);
  if j>100 then //Проверка накличество чисел в последовательности
      begin
        writeln ('По условия задачи цифр не должно быть более 100');
        writeln ('Введите количесво цифр еще раз');
        readln (j);
      end;
  for i:=1 to j do
  begin
    Writeln ('Введите ',i,' число');
    readln (n);
    if n>300 then //проверка максимального значения числа
      begin
        writeln ('Данное число не удовлетворяет условиям задачи (>300');
        writeln ('Введите его еще раз');
        readln (n);
      end;
      n:= n mod 3;
      if n=0 then x:=x+1;
      end;
   Writeln ('Количество чисел, кратных 3:');
   Writeln (x);
end.