рекурсия

[misha25525]

program lab45;
const
n=4;
t=3;
f=5;
var s,i,e:integer;
procedure geometr;
begin
e:=e+t;
writeln (e);
s:=s*e;
inc(i);
if i<>n then geometr;
end;
begin
e:=f;
s:=f;
i:=1;
geometr;
write('sum=',s);
readln;
end.

плиз подскажыте с чего видно што здесь используетса рекурсия

[Lauraldo]

if i<>n then geometr;

Вот с этого

[Black Fregat]

Это, конечно, рекурсия, только странная

[NiCola999]

какаято она у вас бесконечная получилась) как бесконечный цикл

[Lauraldo]

Да нет, там условие на выход предусмотрено.