program Vypocet_n_te_mocniny_zadaneho_cisla_pomoci_operace_soucinu;

uses crt;

var x, n, m, i : real;

begin
  clrscr;
  writeln('Tento program spocita n-tou mocninu zadaneho cisla pomoci operace nasobeni.');
  writeln('V tomto programu je pouzit cyklus s podminkou na zacatku.');
  write('Vloz cislo, ktere chces umocnit : ');
  readln(x);
  write('Vloz cislo, kterym budes umocnovat : ');
  readln(n);
  m := x;
  i := 1;
  while (i < n) do
  begin
    i := i + 1;
    m := m * x;
  end;
  writeln(x:8:0,' ^ ',n:8:0,' = ',m:8:0);
  writeln;
  writeln('Stiskni ENTER ...');
  readln;
end.