Составьте пограмму вычисления суммы 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.