hãy chỉ ra lỗi của đoạn ct sau sửa lại thành ct hoàn chỉnh Uses Crt; Var i,n : integer Tong = Longint; Begin Clrscr; i = 0; Tong : = 0; While i

Uses Crt;
Var i,n : integer
Tong = Longint;                  `=>`  Tong: longint;
Begin
Clrscr;
i = 0;                     `=>`  i:=0;

Tong := 0;
While i:= 0 do          `=>` while i=0 do
Begin 
if ( i mod 4 = 0 ) then 
Tong:= Tong + 1;
i=i+1;                   `=>`  i:=i+1;
End.                    `=>`  end;
Writeln( Tong so chia het cho 4 :, Tong) 

                `=>`  Writeln(‘Tong so chia het cho 4: ‘,Tong);
Readln;
End;                    `=>` end.