Тема "оператор цикла с параметром" pascal abc составьте программу, которая находит сумму квадратов чисел от 1 до 10.

Готово

Var i,c,s:integer;
begin
  s:=0; 
 for i:=1 to 10 do
    begin
       c:=sqr(i);
       s:=s+c;
     end;
 write(s);
end.