viết chương trình tính tổng, tích của các số tự nhiên từ 1 đến n, với n đượ nhập vào tư bàn phím. mọi ng giúp mik vs ạ mik đang gấp

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

        Writeln('Tong la: ',s);
        Write('Tich la: ',t);
        Readln
End.

var n,i,s,t: longint;
begin

t:=1;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
s:=s+i;

t:=t*i;
end;
writeln('Tong la: ',s);
write('Tich la: ',t);
readln;
end.