Дз по информатике, срочно!

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

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.