паскаль 8 класс

Напишите программу, которая в последовательности целых чисел определяет количество нечётных чисел, кратных 3. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности (завершающий 0 не учитывается) и количество нечётных чисел, кратных 3.

Напишите программу, которая в последовательности целых чисел определяет их сумму и подсчитывает разность количества положительных и отрицательных чисел последовательности. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: сумму чисел и разность количества положительных и отрицательных чисел

Составьте алгоритм рисования первой буквы моего имени буквы "З" ! Прошу вас! Pleaseeeee

У ис­пол­ни­те­ля Умно­жа­тель две команды, ко­то­рым при­сво­е­ны номера: 1. умножь на 2 2. вычти 1 Первая из них умно­жа­ет число на 2, вто­рая — вы­чи­та­ет из числа 1. Ис­пол­ни­тель ра­бо­та­ет толь­ко с на­ту­раль­ны­ми числами. Со­ставь­те ал­го­ритм по­лу­че­ния из числа 5 числа 31, со­дер­жа­щий не более 5 команд. В от­ве­те за­пи­ши­те толь­ко но­ме­ра команд. (Например, 21121 — это алгоритм: вычти 1 умножь на 2 умножь на 2 вычти 1 умножь на 2, который пре­об­ра­зу­ет число 3 в 14.

Поменять местами первый элемент масива и максимальный.
Заранее Спасибо) Помогите пожалуйста) Очень срочно!!)
var a: array [1..20] of integer;

Запрашивается имя(string) и затем 7 раз сообщает,что скоро каникулы.

шоколадки -1200 , мороженого-3800