Найти сумму выражения "1*1+2*2++n*n"(составить блок-схему(информатика))

Var n, s, i: integer;
begin
write('Введите n>> ');
readln(n);
if n>0 then
for i:=1 to n do
s:=s+sqr(i);
writeln(s);
end.