Тема "Оператор цикла с параметром"Pascal ABCСоставьте программу, которая находит сумму...

Question

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

Answer 1

Готово..........................

Answer 2

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.