Câu 1: Hãy cho biết kết quả khi chạy đoạn chương trình sau?Program BT;Uses CRT;Var i: integer; S: longint;BeginS:=0; i:=1;While I <= 100 do begin S:=S + i;i:=i + 1; end;Write(S);Readln;End. 50 5000 55 5050 Câu 2: Cho câu lệnh sau: A:=1; While A<=S do A:=A * 2; cho S=13 thì kết quả A? 13 8 26 16