Ввести с клавиатуры массив с из 10 элементов, найти наибольший элемент массива.

var

i, max:integer;

c: array[1..10] of integer;

begin

for i:=1 to 10 do

read(c[i]);

max:=c[1];

for i:=2 to 10 do

if (c[i]>max) then max:=c[i];

write(max);

end.

ответ: Считываем первое число(n), чтобы определить, до какого момента должен продолжаться цикл. Создаем переменную sum, чтобы хранить найденное количество чисел, удовлетворяющих условию. Запускаем цикл, считываем число, если последняя цифра - 4 (проверяем при получения остатка от деления на 10) и число делится на 6 (проверяем при получения остатка от деления на 6), то добавляем к в переменную sum 1.

n = int(input())

sum = 0

for i in range(0, n):

  current = int(input())

  if current % 10 == 4 and current % 6 == 0:

      sum += 1

print(sum)

Объяснение: n = int(input())

sum = 0

for i in range(0, n):

  current = int(input())

  if current % 10 == 4 and current % 6 == 0:

      sum += 1

print(sum)

N - любое число
Движение:
1. Идти n шагов
2. Повернуться на n градусов вправо
3. Повернуться на n градусов влево
4. Повернуть в направление n
5. Повернуться к <какому-либо объекту>
6. Изменить х на n
7. Изменить y на n
8. Установить x на n
9. Установить y на n
10. Идти в x: n y: n
11. Плыть n секунд в точку x: n y: n
12. Идти в <какой-либо объект>
13. Если край, оттолкнуться
Внешность:
14. Сказать "<что-либо>"
15. Думать "<что-либо>"
16. Говорить "<что-либо>" в течение n секунд
17. Думать "<что-либо>" в течение n секунд
18. Показаться
19. Спрятаться
Перо:
20. Опустить перо
21. Поднять перо
22. Установить цвет пера

p.s. выбрал только некоторые, самые подходящие