Writeln и Readln - это процедуры вывода и ввода, if - условный оператор и только for - цикл, предназначенный для многократного повторения одного и того же действия.
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>