Thuật toán:

Câu 1:

- Nhập n1, n2

- Đặt một biến kết quả = 1

- Cho i chạy tăng dần từ n1 đến n2, mỗi lần chạy thì lấy i nhân với kết quả

Câu 2: 

Tính tích thì như câu 1

Tổng:

- Nhập n1, n2

- Đặt 1 biến kết quả_2 = 0

- Cho j chạy tăng dần từ n1 đến n2, mỗi lần chạy cộng i vào kết quả_2

uses crt;
var tong,tich,i,n1,n2,max,min:longint;a:array[1..1000]of longint;
begin
clrscr;
 write('n1=');readln(n1);
 write('n2=');readln(n2);
 min:=n1;
 if(min>n2)then min:=n2;
 max:=n1;
 if(max<n2)then max:=n2;
 tich:=1;
 tong:=0;
 writeln('cau a');
 for i:=min to max do tich:=tich*i;
 writeln(tich);
 writeln('cau b');
 for i:=min to max do tong:=tong+i;
 write(tong);
readln;
end.