Ответы и объяснения

2013-11-22T11:58:23+04:00
var
x,B,i: integer;
begin
write('Введите B: ');
readln(B);
write('Квадраты из заданного диапазона: ');
 for i:=-10 to B do write(sqr(i):4);
writeln;
write('Их сумма: ');
 for i:=-10 to B do x:=x+sqr(i);
write(x); 
end.