Viết chương trình tính tổng các số từ 1 đến N nhập từ bàn phím theo 2 cách: for- do và while- do Giúp mình với mình cần gấp

For - do:

Program BTT;
Uses crt;
Var n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
                s:=s+i;
        Write('Tong la: ',s);
        Readln
End.

While - do:

Program BTT;
Uses crt;
Var n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0; i:=1;
        While i<=n do
        Begin
                s:=s+i;
                inc(i);
        End;
        Write('Tong la: ',s);
        Readln
End.

T:=0;

For i:=1 to n do t:=t+i;

///

t:=0;

i:=0;

while i<>n do 

 begin

   Inc(i); // i:=i+1;

   T:=t+i;

 end;