Програма, яка виводить задане число взаданій степіні:
program xn;
var i,x,n:integer; y:real;
begin
writeln('n, x=');
readln(n,x);
y:= 1;
for i:=1 to n do
y:=y*x;
writeln('y=',y:3:1);
readln
end.