Помогите написать на Паскаль
1)сумма квадратов от 1 до N
S=1+4+9+...n^2

Program programma;Uses crt;var n,s,i: integer;Begin clrscr;      write('Введите число N = ');      readln(n);write('S=');for i:=1 to n-1 do    begin    s:=s+sqr(i);    write(sqr(i),'+');    end;s:=s+sqr(n);write(sqr(n),'=', s);End.