найти в программе по вычислению сумм ошибку, она вроде короткая, но я что то туплюБ спасибо

[kametto]

var S3,S4:real;


procedure oops(S1:real);
var k,n:integer;
begin
For k:=1 to n do
S1:=1/(k*(k+1)*(k+2));
end;



procedure cat(S2:real);
var n:integer;
begin
S2:=1/4-1/(2*(n+1)*(n+2));
end;

begin
writeln ('n =');
readln(n);

S3:=0;
S3:=S3+oops;
S4:=cat;
writeln ('summa1',S3);
readln;
writeln ('summa2',S4);
readln;

end.

[kametto]

ЭЭЭЭЭЭЭЭЙЙЙЙЙЙ!!

[Hacker19_90]

S4:=cat;

эээ! во-перых cat это процедура!

procedure cat(S2:real);

Во-вторых вы параметры ей не передаёте!

S3:=S3+oops;

Тоже самое!

[kametto]

Сообщение от Hacker19_90

эээ! во-перых cat это процедура!

Во-вторых вы параметры ей не передаёте!

Тоже самое!

так хорошо, а вы не могли бы мне подсказать как передать ей параметры, я искала в интернете но для чайника нету определенного ответа)? я так понимаю что надо сделать что то такой
oops(n)
cat(k)?

[Hacker19_90]

ответа)? я так понимаю что надо сделать что то такой
oops(n)
cat(k)?

типо того и процедуры изменить на функции