#!/usr/bin/perl -w
# pic 3.14: fig03_14.pl
# Вычисление целой степени целого числа

# Этап инициализации
$Power = 1;
$Schet = 1;
print "Input integer: ";
chomp ( $Number = <STDIN> );
print "Input integer: ";
chomp ( $Stepen = <STDIN> );

while ( $Stepen >= $Schet )
   {
      $Power *= $Number;
      $Schet++;
   }
# Этап заключительный

print "$Number in power $Stepen: $Power\n";