This does it.

J:=proc(n)

if n=0 then return 75;

else (1/2)*A(n);

end if;

end proc:

A:=proc(n)

if n=0 then return 70;

else S(n-1)*(8/10)+(7/10)*A(n-1);

end if;

end proc:

S:=proc(n)

if n=0 then return 80;

else (3/4)*J(n-1);

end if;

end proc:

A(5), J(5), S(5);