привет! вот решение этой задачи:
Code
program rjad;
uses crt;
var i,s,N:integer;
Begin
clrscr;
write('Do kakogo elementa s4itat''? N = ');
readln(N);
s:=0;
for i:=1 to n-1 do
begin
write(i,'*',i,' + ');
s:=s+i*i;
end;
write(i+1,'*',i+1);
s:=s+sqr(i+1);
writeln(' = ',s);
readkey;
End.
Если что-то не нравится - пиши. 
Добавлено (22.01.2008, 06:44)
---------------------------------------------
Только что означает "1 1 1 1 1"? Пожалуйста, формулируй задачи попонятнее, а то разбираться трудно.
