Var s,x,y,i:integer; Begin Writeln('Üssü alınacak sayıyı girin = ');readln(x); Writeln('Üssünü girin');readln(y); s:=1 for i:=1 to y do Begin s:=s*x; End; Writeln('Sonuc = ',s); readln; End.