Определить значение переменной q, получаемого при выполнении следующего алгоритма

ответ:Q=729.000

Объяснение:

var n, x, S,i: integer;P,Q:real;

begin

n:=4; x:=3; P:=1; S:=1;

for i:=2 to n do begin

P:= P * Power(x,i);

S:= S * x;

end;

Q:= P/S;

writeln('Q=':3,Q:6:3);

end.