Почемуто выводит всегда одинаковые числа,при любых значиния переменных.
Плиз подскажите где ошибка.
Нажмите для просмотра прикрепленного файла

var
i,k, j,d,n:integer;
rs,l, result:real;
function   summ(n:integer):real;
var
k,i:integer;
l,s:real;
begin
s:=0;
k:=1;
for i:=1 to n do
begin
if ((k+1) mod 2) =0 then
l:=1/k*(k+1)
else
l:=-1/k*(k+1);
s:=s+l;
end;
result:=s;
end;
begin
writeln('n=');read(n);
if n<1 then begin
writeln('n<1');exit;end;
writeln('shag=');read(k);
if k<1 then begin
writeln  ('k<1');
exit;
end;
writeln('kolichestvo=');read(d);
if d<1 then begin
writeln('d<1');exit;end;
for j:=1 to d do
begin
rs:=summ(j);
writeln(j,' ',n,' ',rs);
n:=n+k;
end;
end.

!

Внимание! Тема нарушает Правила Форума. Вам дается один час на исправление темы. Для изменения заголовка редактируйте первый пост. Тему будет закрыта или удалена в случае невыполнения требований Правил. К посетителям просьба: не отвечать в тему, нарушающую Правила. Спасибо. мисс_граффити

Тегами пользуйся. Иначе вообще код нечитабельный.
Ну и задание хорошо бы озвучить, а то у ясновидящих сезон отпусков.

Всё исправил.

М

Очень рады за тебя, в следующий раз читай правила форума и не игнорируй сообщения модераторов