Составить блок-схему и программу на Паскале y=x^n

var x, n, i, s:integer;

begin

   readln(x, n);

   s:=1;

   i:=0;

   while i < n do begin

     s:=s*x;

     i:=i+1;

   end;

   writeln(s);

end.

1. это точный ?