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

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