Question

Даны два целых числа А и В (А<В). Найдите сумму квадратов всех целых чисел от А до В включительно. (Составьте задачу)

Answer 1

Program lol;
var i:integer;
sum,kv:real;
begin
for i := a to b do
begin

kv = i*i;
sum:=sum+kv;
kv:=0;
end;

end.