Program abc;

var P,R,N,D,A,C: integer;

var B:real;

begin

  write('Введите число P(Первый член прогрессии) - ');

 Read(P);

   write('Введите число R(Разность прогрессии) - ');

 Read(R);

   write('Введите число N(Число которое не может привышаться) - ');

 Read(N);

  D:=2*P;

  A:=D+R*(N-1);

  B:=A/2*N;

 If  (B>N) then writeln('Ответ превышает число N')

  else Writeln('Сумма членов арифметической прогрессии:' B);

end.

Быстро прочекал что такое арифметическая прогрессия и попытался написать код. Не суди строго если что-то не так)