Надо составить программу ,помогите пожалуйста !!!Очень срочно

У вас условие неправильно записано в 1 (условие не там), во втором в цикле не "go" а "to", ну да ладно1var n,s,a,i:integer;beginreadln(n);s:=0;a:=1;s:=s+a*a;a:=a+1;if a > nthenwriteln(s)elsebegins:=s+a*a;a:=a+1;end;end.2var n,s,a:integer;beginreadln(n);s:=0;for a:=1 to n dobegins:=s+(a*a);end;writeln(s);end.