VCT tính tích các số tự nhiên từ 1 đến 100 dùng lệnh while...do

var
        i: longint  ;
        kq: qword;
        begin
                kq:= 1;
                i:= 1;
                while i <= 100 do
                        begin
                                kq:= kq*i;
                                i:= i+1;
                        end;
                writeln (kq) ;
                readln;
        end.

program oken;

uses crt;

var i,s:qword;

begin

clrscr;

s:=1; i:=1;

while i<=100 do

  begin

     s:=s*i;

     i:=i+1;

  end;

writeln('tich 100 so tu nhien: ',s);

readln;

end.