tính tổng S:

+Dùng For-to-do:

program oken;
uses crt;
var i,s: longint;
begin
        clrscr;
        for i:=1 to 100 do
                s:=s+i;
        writeln('Tong S: ',s);
        readln;
end.

+Dùng While-do:

program oken;
uses crt;
var i,n,s: longint;
begin
        clrscr;
        i:=1; s:=0;
        while i<=100 do
                begin
                        s:=s+i;
                        i:=i+1;
                end;
        writeln('Tong S: ',s);
        readln;
end.

-Tích S:

+Dùng For-to-do:

program oken;
uses crt;
var i: byte;
    s: real;
begin
        clrscr;
        s:=1;
        for i:=1 to 100 do
                s:=s*i;
        writeln('Tong S: ',s:0:0);
        readln;
end.

+Dùng while-do:

program oken;
uses crt;
var i: byte;
    s: real;
begin
        clrscr;
        i:=1; s:=1;
        while i<=100 do
                begin
                        s:=s*i;
                        i:=i+1;
                end;
        writeln('Tong S: ',s:0:0);
        readln;
end.

Tính tổng S:

Dùng for..to..do:

uses crt;
var i,s:longint;
begin
   clrscr;
   for i:=1 to 100 do s:=s+i;
   writeln('Tong S la: ',s);
   readln
end.

Dùng while..do:

uses crt;
var i,n,s:longint;
begin
   clrscr;
   i:=1; s:=0;
   while i<=100 do
   begin
      s:=s+i;
      i:=i+1;
   end;
   writeln('Tong S la: ',s);
   readln
end.

Tính tích S:

Dùng for..to..do:

uses crt;
var i:byte; s:real;
begin
   clrscr; 
   s:=1;
   for i:=1 to 100 do s:=s*i;
   writeln('Tich S la: ',s:0:0);
   readln
end.

Dùng while..do:

uses crt;
var i:byte; s:real;
begin
   clrscr;
   i:=1; s:=1;
   while i<=100 do
   begin
      s:=s*i;
      i:=i+1;
   end;
   writeln('Tich S la: ',s:0:0);
   readln
end.

Kết quả hiển thị ra rất nhiều số, lý do là phép tính này có kết quả quá lớn nên không hiển thị được.