Помогите пожалуйста решить задачки.

[Ленусик1990]

Задача №1. Составить алгоритм и программу для решения следующей задачи:
Даны 3 действительных числа. Определить, что больше, сумма или произведение этих чисел. Если сумма больше произведения на число меньше единицы, то вывести 0, и в противном случае вывести 1.

Задача №2. Составить алгоритм и программу для решения следующей задачи:
Даны два действительных числа x и y. Если наименьшее из них отрицательно, то заменить его нулём, в противном случае единицей.

Задача №3. Составить алгоритм и программу для решения следующей задачи:
Составить программу определения минимального элемента из трёх элементов x1, x2, x3.

Задача №4. Составить алгоритм и программу для решения следующей задачи:
Найти сумму натуральных чисел, предшествующих заданному числу a.

Задача №5. Для целого числа k от 1 до 99 вывести фразу "мне k лет", учитывая при этом, что при некоторых значениях k слово "лет" надо изменить на "год" или "года"

Задача №6. Для натурального числа k вывести фразу "мы выпили k бутылок лимонада", согласовав окончание слова "бутылка" с числом k

[VadEr]

А на каком языке?

[Ленусик1990]

Только надо чтобы было либо в Pascale, Visual Basic.