Возведение в степень - Pascal (80428)

var
i, x, a, m, r : integer;
begin
     a := 2;
     x := 2;
     m := 3;
     r := x;
     for i:=0 to m * x do begin
           r := r * a;
     end;
     writeln(r);
end.