uses crt;
var a,b,s,d,i: integer;
begin
clrscr;
repeat
clrscr;
write ('nhap a: '); readln (a);
write ('nhap b: '); readln (b);
if a>=b then writeln ('dieu kien a<b !!! vui long nhap lai !!!!');
readln;
until a<b;
for i:=a to b do
begin
if i mod 5=0 then
begin
d:=d+1;
s:=s+i;
end;
end;
writeln ('co ',d,' so chia het cho 5 trong pham vi tu a den b');
writeln ('tong cac so chia het cho 5 tu a den b la: ',s);
readln;
end.