Bài 3. Chương trình máy tính và dữ liệu

AUSES crt;
VAR n,m,i,t,t1,tam,tam2: integer;
BEGIN
REPEAT writeln(` Nhap 2 so M va N:`); readln(m,n )
UNTIL (m<=n) AND( n<=500)and (m<>n);clrscr;
Writeln(` * SO m LA:`,m);
Writeln(` * SO n LA:`,n);
t1:=0;t:=0;
tam2:=n;n:=(n-1); tam:=m;
IF (tam mod 5)= 0 then
Writeln(` CAC SO CHIA HET CHO 5:`,tam:4);
FOR i:=m TO n DO
BEGIN
m:=i+1;
IF (m MOD 2)=1 THEN t:=t+m;
IF (m MOD 2)=0 THEN t1:=t1+m;
IF (m MOD 5)=0 THEN
Writeln( ` CAC SO CHIA HET CHO 5:`,m:4);
END;
IF (tam MOD 2)=1 THEN t:=t+tam;
Writeln(` + TONG CAC SO LE LA:`,t:4);
IF (tam MOD 2)=0 THEN t1:=tam+t1;
Writeln(` + TONG CAC SO CHAN TU LA:`,t1:4);
Readln;
End.