Bài 1:

Thua, mình sẽ cập nhật sau. Lí do mình thua: Chưa tìm được công thức để giải. Vả lại bài này lâu quá rồi nên mình cũng không nhớ kiến thức về lực đẩy Ắc-si-mét nữa nên mình giải sau nhé! 

Bài 2:

const mal=27;
      mcl=35.5;
      mh=1;
var a: longint; ncl,nh,vh,malcl: real;
begin
    write('Nhap so gam clo phan ung: ');
    readln(a);
    {Câu a: }
    ncl:=a/mcl;
    nh:=ncl*3/2;
    vh:=nh*22.4;
    {Câu b: }
    malcl:=ncl*(mal+mcl*3);
    {Xuất đáp án: }
    writeln('Ket qua bang:');
    writeln('The tich khi oxi thu duoc: ',vh:0:2);
    writeln('Khoi luong khi alcl3 thu duoc la: ',malcl:0:2);
    readln;
end.

2)

program ct;

uses crt;

const mAl=27;

          mCl=35.5;

          mH=1;

var a:byte;

      nH,vH,nCl,mAlCl:real;

begin clrscr;

   write('Nhap so gam Clo: '); readln(a);

       nCl:=a/mCl;

       nC:=nCl*3/2;

       vC:=nH*22.4;

       mAlCl:=nCl*(mAl+mCl*3);

   writeln('The tich khi H$_{2}$ thu duoc la: ',vH:4:2);

   writeln('Khoi luong khi AlCl3 thu duoc la: ',mAlCl:4:2)

readln;

end.

Học tốt!