Написать на паскаль 1)сумма квадратов от 1 до n s=1+4+9+

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.