void Func1(float A, int N)
{
    float B = 1; int i;
    for (i = 0; i <= N; i++)
    {
        B *= A;
        Console.WriteLine("\n{0}^{1} = {2}", A, i, B);
    }
}

void Func2()
{
    int A = 11, B = -25;
    while(A * B < 0)
    {
        Console.WriteLine("\n{0} * {1} = {2}", A, B, A * B);
        A -= 3;
        B += 5;
    }
 }

function MessageBox takes string Str returns nothing
    call DisplayTimedTextToPlayer(GetLocalPlayer(), 0, 0, 10, Str)
endfunction 

function Func1 takes real A, integer N returns nothing
    local real B = 1
    local integer i = 0
    loop
        exitwhen i > N
        set B = B * A
        call MessageBox(R2S(A)+"^"+I2S(i)+" = "+R2S(B))
        set i = i + 1
    endloop
endfunction 
 
function Func2 takes nothing returns nothing
    local integer A = 11
    local integer B = -25
    loop
        exitwhen A * B >= 0
        call MessageBox(I2S(A)+"*"+I2S(B)+" = "+I2S(A*B))
        set A = A - 3
        set B = B + 5
    endloop
endfunction

const N=10;
var a,b,i,j: integer;
begin
readln(a);
b:=a;
  for i:=2 to N do
    begin
      for j:= 2 to i do 
        b:= b*a;
      writeln(a+'^'+i+'='+b+' ');
      b:=a;
    end;
end.

var a,b,j: integer;
begin
a:=11;
b:=-25;
repeat
  j:=a*b;
  a:=a-3;
  b:=b+5;
  writeln(j+' ');
until j>=0;
end.