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

Program arifmeticheskaja_progressija;Uses CRT;Var a1, d, n, S : real; Begin CLRSCR; Writeln( ‘ введите значение первого члена арифметической прогрессии а1=’ ); Readln(a1); Writeln( ‘ введите разность арифметической прогрессии d=’ ); Readln(d); Writeln( ‘ введите число членов арифметической прогрессии n=’ ); Readln(n); S:=((2*a1+d*(n-1))/2)*n; writeln(‘ значение суммы S= ’ , S:5:2);repeat until keypressed;END.