Program baitap;

Uses crt;

Var m,n,S,i:integer;

Begin

Clrscr;

Write('m='); Readln(m);

Write('n='); Readln(n);

If m>n then writeln('Hay nhap lai m be hon n');

S:=0;

For i:=m to n do

     If (i mod 2=0) or (i mod 3=0) then S:=S+i;

Writeln('Tong cac so chia het cho 2 hoac 3 trong pham vi tu m den n:',S);

Readln

End.

uses crt;
var m,n,i,t,t1:integer;
begin
clrscr;
repeat
write('m='); readln(m);
write('n='); readln(n);
if m>=n then writeln('ban da nhap sai, yeu cau ban nhap lai');
until m<n;
t:=0;
t1:=0;
for i:=m to n do
begin
if (i>=10) and (i mod 3=0) then t:=t+i;
if (i>=10) and (i mod 2=0) then t1:=t1+i;
end;
writeln('tong cac so co 2 chu so chia het cho 3 trong khoang tu ',m,' toi ',n,' la: ',t);
writeln('tong cac so co 2 chu so chia het cho 2 trong khoang tu ',m,' toi ',n,' la: ',t1);
readln;
end.