Question

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

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

Answer 1

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.