Pascal AbcВот программа, которая высчитывает степень числа:var x,y,st,i,:integer;begin st:=1; write('число:'); readln(y);

Program Calculation; varx,y,st,i:integer;begin    st:=1;   write(\'Число:\');  // Просим ввести число.   readln(y);  write(\'Степень:\');  // Просим ввести требуемую степень для числа.  readln(x);  for i:=1 to x do st:=st*y;  { Поскольку в условии задачи не сказано нужно выводить только \"Введите другое число\" или нужен еще результат,то выводиться будет и то,и то.}  writeln(\'результат::\',st);

  //это новая часть кода  if st>10 then   writeln(\'Введите другое число\'); end.