vax, a, b, s: integerbegireadln(a)readln(b)s := 0;
for x := a to b dbegis := s + x*xend;
writeln(s)end.
va
x, a, b, s: integer
begi
readln(a)
readln(b)
s := 0;
for x := a to b d
begi
s := s + x*x
end;
writeln(s)
end.