uses crt;
\n\nvar x,n,i:integer;
\n\nlt:real;
\n\nbegin
\n\nclrscr;
\n\nwrite(\'nhap co so x:\'); readln(x);
\n\nwrite(\'nhap so mu n:\'); readln(n);
\n\nlt:=1;
\n\nfor i:=1 to n do
\n\nlt:=lt*x;
\n\nwriteln(x,\'^\',n,\'=\',lt:4:0);
\n\nreadln;
\n\nend.
\n