Question

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

Answer 1

var s,a,b,i:integer;
begin
read(a,b);
s:=0;
for i:=a to b do
s:=s+sqr(i);
writeln(s);
end.

Answer 2

Var
A,B:integer;
S:real;
Begin
Write('A = ');
ReadLn(A);
Write('B = ');
ReadLn(B);
S:=0;
For B:= A to B do
    S:=S+B*B;
WriteLn('S = ',S);
End.

Answer 3

Цикл открывается по переменной В и верхний параметр В ? Почему S - real , когда параметры цикла целые?