var a, b, c: integer;
begin
readln(a, b);
for var i := a to b do
if (i mod 5 = 0) then c += sqr(i);
writeln(c);
end.
// PascalABC.NET 3.6.3
var (a, b) := ReadInteger2;
(a..b).Where(p -> p mod 5 =0).Sum(p -> p * p).Print
var a, b, c: integer;
begin
readln(a, b);
for var i := a to b do
if (i mod 5 = 0) then c += sqr(i);
writeln(c);
end.
// PascalABC.NET 3.6.3
begin
var (a, b) := ReadInteger2;
(a..b).Where(p -> p mod 5 =0).Sum(p -> p * p).Print
end.