Sử dụng câu lệnh lặp với số lần chưa bt trước.viết chương trình tính tổng và tích của 10 số tự nhiên đầu tiên giúp vs ạ

program tong_tich;

uses crt;

var i,S,T:integer;

begin clrscr;

     i:=1; S:=0; T:=1;

   while i <=10 do 

     begin

       i:=i+1;

      S:=S+i; T:=T*i;

    end;

   writeln('Tong 10 so tu nhien dau tien la: ',S);

   writeln('Tich 10 so tu nhien dau tien la: ',T);

readln;

end.

Học tốt!

uses crt;

var i,tong,tich:integer;

begin

clrscr;

i:=1;tong:=0;tich:=1;

while i <= 10 then 

begin

tong:=tong+i;

tich:=tich*i;

i:=i+1

end;

writeln('Tong = ',tong);

writeln('Tich = ',tich);

readln;

end.