language: Pascal (fpc) (fpc 2.2.0)
date: 102 days 2 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14

var
i,j,a,b,pom,n:integer;
begin
readln(n);
for i:=1 to n do
        begin
        pom:=1;
        readln(a,b);
        if b=0 then writeln(1);
        for j:=1 to b do
        pom:=pom*a;
        writeln(pom);
end;
end.