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.