Tính tổng dãy

Cho số n nhập từ bàn phím. Hãy tính :
      - Tổng n số tự nhiên đầu tiên.
       - Tổng bình phương n số tự nhiên đầu tiên.
       - Bình phương tổng n số tự nhiên đầu tiên.
                                                                 Giải
Program b110;
Var
   n,s1,s2,s3,s4,i:Longint;
BEGIN
       Write('Nhap n = '); ReadLn(n);
       s1:=0; s2:=0; s3:=0;s4:=0;
       For i:=0 to n-1 do
           Begin
               s1:=s1+i;
               s2:=s2+i*i;
               s3:=s1*s1;
               If i mod 2=0 then s4:=s4-i
               Else s4:=s4+i;
           End;
       Writeln('=> Tong ',n,' so tu nhien dau tien la S = ',s1);
       Writeln('   Tong binh phuong ',n,' so tu nhien dau tien la S = ',s2);
       Writeln('   Binh phuong tong ',n,' so tu nhien dau tien la S = ',s3);
       Writeln('   Tong day dan dau ',n,' so tu nhien dau tien la S = ',s4);
       ReadLn;
End.