Aire sur maple

Bonjour,

voici l'exercice que jai a faire sous maple :
soit un parallélépipède rectangle de longueur x, de largeur y et hauteur h. On suppose que son volume est égal à 1.
Déduire h en fonction de x et y.
Calculer l'aire S(x,y) en fonction de x et y.

J'ai fait ceci :

S:= proc(x,y)
> local i, S ;
> S:= 0;
> for i from 1 to n do
> S:= 2*(x*y + x*(1/(x*y)) + y*(1/(x*y)));
> od;
> end;

S := proc(x, y)
local i, S;
S := 0; for i to n do S := 2*x*y + 2/y + 2/x od
end

Mais quand je le test j'ai "Error, (in Aire) unable to execute for statement". Pouvez-vous m'aider svp