Паскаль ABC!

[Просто человек]

Помогите написать программу для 1 задачи пожалуйста)заранее спасибо)

[WorldMaster]

В чем помочь то?? Задавайте вопросы.

[Просто человек]

Не помог, не нажму

[ZX Spectrum-128]

Просто человек, как же тебе помочь-то? Коли ты ничего не спрашиваешь?
Почти (С)

[Smitt&Wesson]

Переходы в метро уже отменили? Памажите, мы тут не местные....

[Stilet]

s:=0; for n:=1 to 6 do s:=s+(n*n+x); writeln(s);
s:=0; n:=1; while n<7 do begin s:=s+(n*n+x); inc(n); end; writeln(s);
s:=0; n:=1; repeat s:=s+(n*n+x); inc(n); until n=7; writeln(s);

Устраивает?