Umiestnenie súboru www.TrSek.com/zadania/counting.pas

{ COUNTING.PAS                                                      }
{ Vypocet n-tej mocniny cisla.                                      }
{                                                                   }
{ Author: Juraj Pupak                                               }
{ Date  : 27.10.2006                           http://www.trsek.com }

program Counting;
uses crt;
var
X,n,i,k : integer;
begin
clrscr;
writeln('Vypocet n-tej mocniny cisla.');
writeln('----------------------------');
writeln('Zadaj cislo X');
readln(X);
writeln('Zadaj exponent cisla X');
readln(n);
clrscr;
k := X;

For i := 1 To n - 1 Do
   begin
     k := k * X;
   end;
writeln('Vysledok ',X,'^', n, '=', k);
readln;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com