Программирование ветвящихся алгоритмов

[Чертёнок]

Помогите пожалуйста решить л/р на Делфи!
Задача 1:

Даны действительные числа х, у, z. Вычислить: а) max(x+y+z, хуz);
б) min2 (х + у + z/2, хуz) + 1.

Задача 2:

Даны действительные числа х, у. Если х и у отрицательны, то каждое значение заменить его модулем; если отрицательно только одно из них, то оба значения увеличить на 0.5; если оба значения неотрицательны и ни одно из них не при-надлежит отрезку [0.5, 2.0], то оба начения уменьшить в 10 раз; в остальных случаях х и у ставить без изменения.

[Stilet]

А что именно не получается? Консольный проект создавать умеешь? Если да то пропиши в нем ввод :

Write('Введите х  ');Readln(x);

для каждой переменной и вычисление с выводом:

if (x+y+z)<(x*y*z) then writeln(x*y*z) else writeln(x+y+z);
if (х + у + z/2)<(x*y*z) then write(x*y*z+1) else write(х + у + z/2+1);

И не забудь задержать консоль через Readln; на экране чтоб результат увидеть.