[azert7]

أخي العزيز حل هذا التمرين جد سهل وهو كالآتي

program exo; 0
var
x,a:real; 0
n,i:integer; 0
begin
read(x,n); 0
a:=x; 0
i:=1; 0
while i<n do
begin
x:=x*a; 0
i:=i+1; 0
end; 0
write(x); 0
end. 0

ملاحظة: الاصفار التي على الجانب الايمن لتعديل الكتابة فقط