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

Question

Даны два целых числа A и B (AНадо нарисовать блок схему(я вроде нарисовала,но сказали что там есть ошибка)

и написать программу надо

---

Answer 1

var
a,b,i:integer;
s:longint;
begin
repeat
write('Vvedite chisla a,b=');
readln(a,b);
until a s:=0;
for i:=a to b do
inc(s,sqr(i));
writeln('Summa kvadratov=',s);
end.