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

Мне блок-схема нужна !!! Это не то(

var n, s, i: integer;beginwrite('Введите n>> ');readln(n);if n>0 thenfor i:=1 to n dos:=s+sqr(i);writeln(s);end.