Uses crt;
Var m, n, ucb, d, i: integer;
Begin
Clrscr;
Write('Nhap m = '); readln(m);
Write('Nhap n = '); readln(n);
scb:=0; d:=0;
For i:=m to n do if i mod 3 = 0 then inc(d);
For i:=m to n do if i mod 3 = 0 then inc(ucb, i);
Writeln('Tong cac so chia het cho 3 la: ',ucb);
Writeln('Co ',d,' so chia het cho 3');
Readln
End.