đề 1:viết chương trình tính tổng của 10 số tự nhiên đầu tiên đề 2:viết chương trình tính tổng L 5 số tự nhiên đầu tiên(với L đc nhập từ bàn phím) giúp

1/

program bai1;

uses crt;

var i,t:integer;

   begin

      clrscr;

      t:=0;

      for i:=1 to 10 do

         t:=t+i;

      writeln(‘Tong 10 so tu nhien dau tien la: ‘,t);

      readln

  end.

2/

program bai2;

uses crt;

var i,l,t:integer;

  begin

    clrscr;

     write(‘Nhap l: ‘);        readln(l);

     t:=0;

     for i:=1 to l do

         t:=t+i;

     writeln(‘Tong cua ‘,l,’ so tu nhien dau tien la: ‘,t);

     readln

   end.