Viết chương trình Pascal tính tổng các phần tử cải cấp số cộng có n phần tử biết rằng phần tử thứ nhất là a và công sai là d

program bai_giai;
uses crt;
var n,i,a,d,t:longint;
begin
    clrscr;
    write('Nhap n: '); readln(n);
    write('Nhap a: '); readln(a);
    write('Nhap d: '); readln(d);
    t:=0;
    for i:=1 to n do
        begin
            t:=t+a;
            a:=a+d;
        end;
    write(t);
    readln;
end.

vote mik nha

program bt;
uses crt;
var i,n,s,d,a:integer;
begin
 clrscr; i:=1;
 write('Nhap a: '); readln(a);
 write('Nhap d: '); readln(d);
 write('Nhap n: '); readln(n);
 while (i<=n) do
 begin
   s:=s+a+(i-1)*d;
   inc(i);
 end;

 writeln('Tong: ',s);
 readln;
end.