помогите пожалуйста!!!!!
дано действительно x, не равное 0, и натуральное n. вычислить x^n, используя цикл for
информатика

Var

n,x,s,i:integer;

Begin

Readln(x,n);

s:=1;

For i:=1 to n do

s:=s*x;

Writeln(s);

end.