viết phương trình nhập vào 2 số nguyên dương A , B . Đếm xem có bao nhiu số chia hết cho 3 trong đoạn từ a đến b Mong mn giúp ạ

Program baitap;

Uses crt;

Var A,B,dem,i,z:integer;

Begin

Clrscr;

dem:=0;

Write('A='); Readln(A);

Write('B='); Readln(B);

If A<B then 

     For i:=A to B do 

       If i mod 3=0 then dem:=dem+1

Else

     For z:=B to A do 

       If z mod 3=0 then dem:=dem+1;

Writeln('Co ',dem,' so chia het cho 3 trong doan tu a den b');

Readln

End.

program bai_giai;

uses crt;

var a,b,i,dem:longint;

begin

clrscr;

write('nhap a,b:');readln(a,b);

dem:=0;

for i:=a to b do if(i mod 3=0)then inc(dem);

write('s=',s);

readln

end.