Cycles/Sum of Sqrs[E]

function FindSumOfSqrs(in1,in2:integer):integer;
var i,outp:integer;
begin
  for i:=in1 to in2 do              //iterate over range input nums
    begin
      outp:=outp+i*i;               //add to previous output value i^i
      FindSumOfSqrs:=outp;
    end;
end;

procedure Inpt(var a,b:integer);
begin
  read(a,b);                        //read min and max values of the range
end;
procedure outp(a,b:integer);
begin
  writeln(FindSumOfSqrs(a,b));      //write result
end;
var a,b:integer;
begin
  inpt(a,b);
  outp(a,b);
end.