Цикл "Для". Написать программу
1)Найти сумму квадратов целых чисел от 1 до 100.

var   i, sum: longint;  begin   for i := 1 to 100 do sum := sum + sqr(i);   write(sum); end.

vars,i,n:integer;begini:=100;s:=0;For n := 1 to i dobegins:=s+i*i;i:=i-1;end;writeln('Сумма квадратов целых чисел от 1 до 100 равна ',s);end.