viết trương trình tính tổng và tích các số tự nhiên từ 1 đến n với n được nhập từ bàn phím

program tong_tich;

uses crt;

var n,i,tong:integer;

      tich:int64;

begin

       clrscr;

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

       tong:=0; tich:=1;

       for i:=1 to n do

              begin

                     tong:=tong+i;

                     tich:=tich*i;

              end;

       writeln(‘Tong la: ‘,tong);

       writeln(‘Tich la: ‘,tich);

       readln;

end.