Вообщем если таблицы истиности то смотри вложение.
Вместо буквы T подставляй 1
Вместо буквы F подставляй 0
Пример:
A B A∧B
T T T
T F F
F T F
F F F
-------------------
A B A∧B
1 1 1
1 0 0
0 1 0
0 0 0
Составил код в Visual Studio, в итоге получилось 27
Program p1;
Var a,b,c,s,i:integer;
Begin
Write('Введите первый член прогрессии: ');
Readln(a);
Write('Введите разность чисел прогрессии: ');
Readln(b);
Write('Введите количество чисел прогрессии: ');
Readln(c);
for i:=1 to c do
Begin
s:=s+a;
a:=a+b;
End;
Writeln('Сумма членов прогрессии: ',s);
<span>End.</span>