Напишите в Паскале программу на нахождение суммы чисел арифметической прогрессии с 50 по 150 член, если a1=1, d=0,6. Формула арифметической прогрессии Sn=(a1+an)*n/2. Очень нужно. Заранее спасибо.

Vara1,d:real;BeginWrite('a1 = ');ReadLn(a1);Write('d = ');ReadLn(d);WriteLn('S(150) - S(50) = ',(2*a1+d*149)*75-(2*a1+d*49)*25);End.