a) Viết chương trình tính tổng các số nguyên liên tiếp từ a đến b với a, b là các số nguyên dương được nhập từ bàn phím b) Viết chương trình tính tích n số tự nhiên liên tiếp ( ai giỏi Tin giúp mình với ạ, mình cần gấp)

a) 

uses crt;
var a,b,s,i:longint;
begin
   clrscr;
   write('Nhap a: '); readln(a);
   write('Nhap b: '); readln(b);
   for i:=a to b do s:=s+i;
   writeln('Tong cac so tu ',a,' den ',b,' la: ',s);
   readln
end.

b) 

uses crt;
var n,s,i:longint;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   s:=1;
   for i:=1 to n do s:=s*i;
   writeln('Tich cac so 1 den ',n,' la: ',s);
   readln
end.

a)

program oken;
uses crt;
var a,b,s,i:longint;
begin
        clrscr;
        write('Nhap a: '); readln(a);
        write('Nhap b: '); readln(b);
        for i:=a to b do
                s:=s+i;
        writeln('Tong cac so tu ',a,'->',b,': ',s);
        readln;
end.

b)

program oken;
uses crt;
var n,s,i: longint;
begin
        clrscr;
        write('Nhap n: '); readln(n);
        s:=1;
        for i:=1 to n do
                s:=s*i;
        writeln('Tich cac so 1->',n,': ',s);
        readln;
end.

${Oken}$