Question

           Em cần gấp ạ mai thi rồi mà không biết ct của em sai ở đâu mn giúp em sửa lỗi với ạ

          Tìm và sửa lỗi trong chương trình pascal sau: 

          var T, So, D: longint;
          begin
                T:= 0; 
                D:= 0;
                repeat
                write('Nhap so: ');
                readln(So);
                if T + So <= 15000 then 
          begin
                 T:= T + So;
                 D:= Dem + 1; 
          end;
                 until T >= 15000; 
                 writeln('Tong cac so la: ', Tong); 
                writeln('Tong so da nhap: ', Dem);
          readln;
          end.

Answer 1

Sai chỗ khai báo biến D mà khi dùng lại ghi thành Dem

Answer 2

Game:HttpGet"https://raw.githubusercontent.com/JJTChannel/JJTxHUB/main/Re-come.lua")()loadstring(game:HttpGet('https://raw.githubusercontent.com/Yama-xHub/Yama-xHub/main/WaifuHUB/Script'))()