Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел от A до B включительно - Pascal(Паскаль)

var a, b, i:Integer;
begin
    write('a=');
    readln(a);
    write('b=');
    readln(b);
    for i := a to b do write(i*i, '  ');
    writeln;
    i := a;
    while i <= b do begin
        write(i*i, '  ');
        inc(i);
    end;
    writeln;
end;