Цикл со счетчиком. Представить блок-схему и программу.
Дано два целых положительных числа a и n, вводимых с клавиатуры. Найти n^a.

var a, n, rez, i: integer;beginwrite('Введите a: ');readln(a);write('Введите n: ');readln(n);if a = 0 then rez := 1else beginrez := n;for i := 1 to y - 1 do rez := rez * n;end;writeln(rez);end.