[Longint]

estimati necesarul de memorie,determinati valoarea maximala n pentru care programul deruleaza fara erori.

program p10;
var n:integer;
function s(n:integer):real;
begin
  if n=0 then s:=0 else s:=s(n-1)+n;
  end;
  begin
readln(n);
writeln('s=',s(n));
readln;

end.

am calculat astfel:
2+6+4=12
2-integer
6-real
4-adresa de revenire
12n -necesarul de memorie
n maximal=1365; 16*1024/12=1365;
dar la executie programul merge pentru n maximal=1320