Вот, сюда не добавишь исходники кумира (за что я очень мирно и культурно ругаю администраторов), так что тхтшники ловите, подгрузите из кумиром
Попробуйте такой вариант:
programm one
var n, i: integer;
S: real;
begin
readln(n);
while(i != n)
begin
s := s + 1/((2*n+1)*(2*n+1));
i = i+1;
end;
writeln(s);
readln();
end.
I - Стиль линии
II. - Толщина линии
III. - Цвет линии
IV. - Настройка границ ячейки (границы сверху, снизу, слева и т. д.)
Ответ в приложении
_________
program zadacha;
var x,y:integer;
begin
write('Значение x=');
readln(x);
if x>0 then
y:=2*x-5
else
if x=0 then
y:=0
else
if x<0 then
y:=3*x-1;
writeln('Значение функции y=',y);
end.