Составьте пограмму вычисления суммы 100 первых членов арифметической прогрессии,если а1=5; d=4

program a_1;var a1,d,n,S,m:real;begin  a1:=5;  d:=4;  n:=100;  m:=(2*a1+(n-1)*d)/2;    S:=m*n;  writeln(S);  end.