Написать программу на языке Pascal; Даны действительное х и натуральное п. Вычислить Y:

Предыдущий
вопрос Следующий
вопрос

var
x, y: real;
p, i: integer;
begin
writeln('Введите значение x:');
readln(x);
writeln('Введите значение p:');
readln(p);

y := 1;
for i := 1 to p do
begin
y := y * x;
end;

writeln('Значение Y = ', y:0:2);
end.