Написать программу на паскале 15 вариант
через while, repeat, until
и написать блок схему по коду
заранее

Program a2;

var n, m, i, j, ch, sr: integer;  

begin

 readln(m, n);

 for i := 1 to n do

   begin

     ch := i;

     for j := 1 to m-1 do

       ch := ch * i;

     sr := sr + ch;

   end;

 writeln(sr);

end.