Question

составить программу нахождения суммы квадратов чилел от 1 до 100

Answer 1

program r;

var a:longint;
i:byte;
begin
a:=0;
for i:=1 to 100 do a:=a+sqr(i);
writeln(a);
end.