составить алгоритм вывода 20ти первых чисел, (цикл с параметром)

документ, но однако там выходит ошибка. Помогите пожалуйста.

На одной улице стоят в ряд 4 дома, в которых живут 4
человека: Билл, Джон, Алан и Хью. Известно, что каждый из них владеет
ровно одной из следующих профессий: Врач, Учитель, Слесарь и Парикмахер,
но неизвестно, кто какой, и неизвестно, кто в каком доме живет. Однако
имеется достоверная информация, что:

1) Учитель живет левее Парикмахера.

2) Парикмахер живет левее Врача.

3) Слесарь живет рядом с Врачом.

4) Врач живет через дом от Учителя.

5) Билл живет левее Слесаря.

6) Алан живет рядом с Врачом.

7) Хью живет рядом с Биллом и Джоном.

8) Билл живет не рядом с Аланом.

var n, s: integer;

begin

n := 4;

s := 0;

while n <= 8 do begin

s := s + n;

n := n + 1

end;

write(s)

end.

только элементы кратные 2

3)Найти сумму первых пяти элементов

Составить программу Дан массив целых чисел , размерность -12

1) Заполнение массива производить случайными числами из диапозона [-10;35]

2)Вывести на печать только положительные элементы

3)Найти количество отрицательных элементов

Составить программу

Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .

ю следующих рекуррентных соотношений где - целое. Отследить корретность ввода исходных данных.

Привет. Помогите плиз=)
№1)Составить алгоритм вывода среднего(не арифметического) из трёх чисел в виде блок-схемы.
Входные данные:три числа
Выходные данные:среднее число

№2) На вход подаётся число. Нужно вывести числа от данного до 10. Если оно изначально больше 10, завершить программу.