Pascal AbcВот программа, которая высчитывает степень числа:var x, y, st, i,:integer; begin st:=1; write ('число:'); readln (y); write ('степень:'); readln (x); for i:=1 to x do st:=st*y; writeln ('результат::', st); end. Как в этот код добавить: "Если число > 10, то программа должна вывести на экран: "Введите другое число""

Program Calculation;

var

x, 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.