Даны четыре числа а b c d. Вывести то число, которое ближе к среднему аривметическому этих чисел

Задача 1 - Дано целое число. Если оно положительное, вывести " Число положительное ", если отрицательное вывести "Число отрицательное ", если равно 0 - "Число равно нулю" задача 2 - дано целое число.

1. for + random a. вывести случайное количество случайных чисел b. вывести на экран 10 случайных чисел c. вывести на экран 10 случайных чисел, значение которых лежит в отрезке [0,10] d.

Паскаль. 1. вывести на экран все четные числа от 1 до n. 2. вывести на экран все трехзначные числа. 3. вывести на экран четырехзначные числа оканчивающийся на 7. 4. вывести на экран все трехзначные и двухзначные числа сумма цифр которых равна девяти.

Помогите, прошу! Программирование на языке Pascal, используя Case Ввести число (от 1 до 4) если число = 1 то вывести окружность, если - 2, то вывести квадрат, если - 3, вывести ромб, если - 4, вывести параллелограмм.

2. Ввести два числа. Сравниваются два числа. То число, которое больше, если больше 10 разделить его на 2, если меньше или равно 10, то умножить на 3. То число, которое меньше, умножить на 368 и вывести сотни (если число 368, то вывести 3).