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

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.