var<span> a, n, rez, i: integer;</span>
begin
write('Введите a: ');
readln(a);
write('Введите n: ');
readln(n);
if<span> a = 0 </span>then<span> rez := 1</span>
else begin
rez := n;
for<span> i := 1 </span>to<span> y - 1 </span>do<span> rez := rez * n;</span>
end;
writeln(rez);
end.
Var x: integer;
begin
readln(x);
if x > 0 then x := x * x
else x := x * x * x;
writeln(x);
<span>end.</span>
Иванов , Петров, Сидоров
Сидоров, Петров, Иванов
Петров, Иванов,Сидоров
Петров, Сидоров, Иванов
Сидоров,Иванов, Петров.
Иванов, Сидоров, Петров.
Сидоров,Петров,Иванов
Самое простое из того, что смог придумать. Перебираем числа до половины необходимого (больше нет смысла) (for i := 2 to number div 2 do) и ищем есть ли делители (number mod i = 0). Выводим сообщение.
var
number, i : integer;
begin
write('Число: ');
readln(number);
for i := 2 to number div 2 do
if number mod i = 0 then
begin
writeln('Число не является простым, оно делится, как минимум, на ', i);
Exit;
end;
writeln('Число является простым');
end.