Необходима блок-схема цикла к постусловием. Задано целое положительное значение x (x>0). Вычислить сумму всех целых чисел, попадающих в интервал [;].

Program lol;

Var x, sum, a, b:integer;

begin

readln(x);

a := round(int(sqrt(x))) + 1;

b := round(x*x);

for var i := a to b do

sum := sum + i;

writeln(sum);

end.