help ạ , pascal , không chép mạng nha ạ :3

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

- Theo sinh học, cơ chế nhân đôi sau `n` lần phân đôi, theo công thức là `2^n`

- Đó là quá trình nguyên phân của sinh vật sinh sản vô tính

- Do `1<=n<=50` nên ta dùng kiểu dữ liệu byte

- `2^50=1125899906842624` tức là đến 16 chữ số

- Nên ta lưu kết quả bằng kiểu dữ liệu số thực Extended thay vì dùng real hay longint (nói chung dùng cho nó lớn á)

- :0:0 để làm tròn và in ra kết quả giống số nguyên

- Tại sao `n-1` ? Vì đã có 1 lần sinh sản ban đầu

*Code Pascal :

program vi_khuan;
  uses crt;
    var n, i : byte ;
        kq : extended ;
begin
    clrscr;
    write('N = '); readln(n);
    kq := 2 ;
    for i := 1 to n - 1 do kq := kq * 2 ;
    write('So vi khuan la: ',kq:0:0);
    
end .

uses crt;
var n: byte;
 function dbk(mu: byte): int64;
   var i: byte;
  begin
   dbk:=1;
   for i:=1 to mu do
    begin
     dbk:=dbk*2;
    end;
   end;
begin
  clrscr;
  readln(n);
  write('So vi khuan la: ',dbk(n));
end.