Viết chương trình tính tích từ 10 đến 100:

uses crt;
var i:longint; tich:qword;
begin
clrscr;
   tich:=1;
   for i:=10 to 100 Do  tich:=tich*i;
   writeln('Tich cac so tu 10 den 100: ',tich);
readln
end.

Viết chương trình tính tổng 100 đến 1000:

uses crt;
var i,tong:longint; 
begin
clrscr;
   tong:=0;
   for i:=100 to 1000 Do  tong:=tong+i;
   writeln('Tong cac so tu 100 den 1000: ',tong);
readln
end.

Viết chương trình tính tích từ 10 đến 100:

Program Tinh_tich;

Uses Crt;

Var S : real;

Begin

S := 1;

For i := 10 to 100 do S := S×i;

Write ('tich cac so tu 10 den 100 là ', S);

End.

Viết chương trình tính tổng 100 đến 1000

Program Tinh_tong;

Uses Crt;

Var S : real;

Begin

S := 0;

For i := 100 to 1000 do S := S+i;

Write ('tong cac so tu 100 den 1000 là ', S);

End.