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

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

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