hãy sửa lại thành chương trình hoàn chỉnh:
use crt;
var i,n :integer
tong : longint
begin
clrscr;
i=0, tong :=0;
while i:=10 do
begin
if (i mod 4)=0 then tong:=tong + 1
Loga
Sinh Học lớp 12
