tính tích P=1*2*3*.....*n bằng lệnh lặp while .... do

program oken;
uses crt;
var i,n:integer;
    p: qword;
begin
        clrscr;
        write('nhap n: '); readln(n);
        p:=1; i:=0;
        while i<n do
                begin
                        i:=i+1;
                        p:=p*i;
                end;
        writeln('P=',p);
        readln;
end.

Program BTH;
uses crt;
var i,n:longint;
p:qword;
Begin
    clrscr;
    write('Nhap n: ');readln(n);
    p:=1; 
    i:=0;
    while i<n do
        begin
            i:=i+1;
            p:=p*i;
        end;
    writeln('P=',p);
    readln;
end.