Program Multy;
var i, n, x, mt:integer;
begin
write('введите целое число X ');
readln(x);
write('введите степень N ');
readln(n);
mt:=x;
for i:=1 to (n-1) do
begin
mt:=mt*x;
end;
writeln(x,' в степени ',n,' равно ',mt);
end.
Потому что ей это не нужно!
Она и так хорошо справляется ;)
У вас отсутствует вторая закрывающая скобка в первой строке
Должно быть так: n = int(input('Введите число. Проверка на четность.'))