Цитата(Sanek @ 14.9.2008, 12:40) 
var
a.b,i:integer; N:real;
a=0
for i:=1 to N do
a:=(2N-1)+a;
b:=N*N;
writlen(a);
writlen(B );
.....a дальше я не знаю что делать,помогите пожалуйста кто может.
. Ого... 1) Где begin, end?
2) Что такое "writlen"?
3) С какого перепоя "N:real"?
4) Где чтение переменной N с клавиатуры?
5) В цикле используется не та переменная:
for i:=1 to N do
a:=(2N-1)+a;
Ну и просто ничтожные после такого поправки:
1) Пишем внимательно, опечаток слишком много.
2) Используйте integer по назначению, вам нужен без знаковый тип.
3) Переменная b не нужна.
Ответьте строго по пунктам.