cơ bản:

uses crt;
var i,n,s,t:integer;
begin
clrscr;
write('nhap so n:');readln(n);
s:=0;
t:=1;
for i:=1 to n do
begin
 s:=s+i;
 t:=t*i;
end;
writeln('tong la:',s);
writeln('tich la:',t);
readln;
end.

==============================

nâng cao(đúng hơn mà chương trình tin lớp 8 cơ bản chưa học ko khuyến khích xài):

uses crt;
var i,n:integer;
t,s:longint;
begin
clrscr;
write('nhap so n:');readln(n);
while n=0 do
begin
 write('nhap lai so n:');
 readln(n);
end;
s:=0;
t:=1;
for i:=1 to n do
begin
 s:=s+i;
 t:=t*i;
end;
writeln('tong la:',s);
writeln('tich la:',t);
readln;
end.

#include <iostream>

using namespace std;

int main()

{

    int N, i, S = 0, T = 1;

    cout << "Nhập số N = ";

    cin >> N;

    for (i = 1; i <= N; i++) {

        S = S + i;

        T = T * i;

    }

    cout << "Tổng = " << S;

    cout << "\nTích = " << T;

    return 0;

}