Tính và đưa ra màn hình tổng từ 1 đến N , N nhập từ bàn phím, N là số nguyên dương. giải giúp mình vs ạ Mình sẽ vote 5 sao

Program NhatNgu;
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('S = ',s);
        Readln
End.

Program Tinhtong;

Uses crt;

Var S,i,n:Interger;

BEGIN       Write('nhap so n: ' );

                 Readln(n);

                 S:=0;

                 For i:=1 to n do 

                                   S:=S+i;

               Writeln ( 'Tong= ',);

               Readln;

END.