Viết chương trình nhập 2 số, hiển thị số chia hết cho 5 và 10, đếm số lượng. Tính tổng các số trong khoảng 2 số đó

uses crt;
var d,a,b,i:longint;
begin
clrscr;
   write('a,b=');readln(a,b);
   if a mod 10=0 then write(a,' ');
   if b mod 10=0 then write(b); writeln;
   for i:=a to b do inc(d,i);
   writeln(d);
readln
end.

Uses crt;
Var x, y, d, i, dx, dy: integer;
Begin
Clrscr;
Write('Nhap x = '); readln(x);
Write('Nhap y = '); readln(y);
If x mod 10 = 0 then inc(dx);
If y mod 10 = 0 then inc(dy);
For i:=x to y then d:=d+i;
Writeln('Tong cac so trong khoang x va y la: ',d);
Readln
End.