Question

найти сумму квадратов всех целых чисел от 10 до 15.

СРОЧНО.ПЛИИИИИИИИИИИЗ!!!!!!!!!!!!!

Answer 1

var i,s:integer;

begin

  for i:= 10 to 15 do

    s:=s+ i*i;

  write(s);

end.