Простая задачка, давайте разберём Ваш код.
a=n%5 Хм, ну а зачем, нам тут это вообще не нужно, нам нужно условие, чтобы спецэффектов было больше 5.
Возьмём число спецэффектов за x и попросим ввести это число
x = int(input("Введите количество спецэффектов: "))
Че дальше делаем, а дальше просто проверяем x больше 5 или не
Если да, то печатаем "YES", иначе "NO"
if x > 5:
print("YES")
else:
print("NO")
Конечный код:
x = int(input("Введите количество спецэффектов: "))
if x > 5:
print("YES")
else:
print("NO")
var
_sum, _multiplication, x, i : integer;
begin
_sum := 0;
_multiplication := 1;
writeln('Введите 5 чисел: ');
for i := 1 to 5 do
begin
readln(x);
_sum := _sum + x;
_multiplication := _multiplication * x;
end;
writeln('Сумма этих чисел:', _sum);
writeln('Произведение числе:', _multiplication);
writeln('Среднее арифметическое:', _sum/5:5:2);
end.