Найти сумму членов арифметической прогрессии, если известны ее первый член, знаменатель и число членов прогрессии.

Используя формулу 
Sn-ого числа = аn+a1/2 и умножить на n
Где Sn-сума членов арифметической прогрессии 
an-n-ое число арифметической прогрессии 
a1-первый член арифметической прогрессии
n-номер числа
Если неизвестно n число то можна найти ее за другой формулой
Sn=2a1+d(n-1)/2
Где d-разница арифметической прогрессии

1)

Program CircleS;

Uses Crt;

const pi=3.14;

var S,r:real;

begin

     Clrscr;

      write('Введите радиус r:');

      readln(r);

      S:=pi*(r*r);

      writeln('Площадь круга равна:',S);

end. 

 

2)

Program TriangleS;

Uses Crt;

var S,a,h:real;

begin

     Clrscr;

      write('Введите высоту треугольника  h:');

      readln(h);

      write(' Введите сторону треугольника  а:');

      readln(a);

      S:=0.5*a*h;

      writeln('Площадь треугольника равна:',S);

end. 

 

3)

Program TrapezoidS;

Uses Crt;

var S,a,b,h:real;

begin

     Clrscr;

      write('Введите высоту трапеции  h:');

      readln(h);

      write(' Введите сторону   трапеции   а:');

      readln(a);

      write(' Введите сторону   трапеции   b:');

      readln(b);

      S:=0.5*(a+b)*h;

      writeln('Площадь трапеции  равна:',S);

end. 

 

 

Писал код для другого, но адаптировал под твою задачу)

 

var
  mas: array[1..1000] of integer;
  i,a,n,c: integer;

begin
 n:=0;
 writeln ('Введите количество элементов массива');
 readln (c);
 randomize;
 write ('Массив - ');
  for i := 1 to c do
    begin
      mas[i] := random(c);
      write(' ', mas[i], ' ');
    end;
    writeln;
  begin
     for i := 1 to c do
        if mas[i] > mas[i + 1] then swap(mas[i], mas[i +1]);
   end;
  for i:= 1 to c do begin
     mas[i]:=mas[i+1];
     a:=mas[i];
  end;
 writeln ('Максимальный элемент массива ',mas[i]);
   for i:=1 to c do
     if a=mas[i] then inc(n);
     write ('Количество равных элементов массива ',n);
end.