uses rcs ;

var i,n: integer;

tong : longint

begin

clrs

tong =0

fori=1 to 10 do

begin

if (i mad 4) =0 then

tong = tong + i

end.

writeln ( tong so chia het cho 4 ; tong ) ;

readln;

end.

-------------------------------------

sửa lại: 

uses crt;

var i,n: integer;

tong: longint

begin

clrscr;

tong:=0;

for i:=1 to 10 do

begin

if i mod 4=0 then

tong:=tong+i;

end;

writeln ('tong so chia het cho 4: ',tong) ;

readln;

end.

$\text{ Sửa lại : }$

$\text{ uses crt; }$

$\text{ var i,n: integer;}$

$\text{ tong: longint}$

$\text{ begin }$

$\text{ clrscr; }$

$\text{ tong:=0; }$

$\text{ for i:=1 to 10 do}$

$\text{ begin }$

$\text{ if i mod 4=0 then }$

$\text{ tong:=tong+i; }$

$\text{ end; }$

$\text{ writeln ('tong so chia het cho 4: ',tong) ;}$

$\text{ readln;}$

$\text{ end. }$