Загрузка данных


алг
нач
  цел a, n, i
  вещ y
  ввод a, n
  y := 1
  i := 1
  нц пока i <= n
    y := y * a
    i := i + 1
  кц
  вывод "y = ", y
кон