срочно-----help-------

Дело в том что я в паскале поный ноль
у меня через 2 дня сдача задолжностей
я писать проги ваше не умею но книги есть и хачу научится но за 2 дня я не успею сделать ничего помогите решить 6 задач очь пррашу

ЕСЛИ КТО ПОМОЖЕТ БУДУ ОЧЕНЬ ПРИЗНАТЕЛЕН

ЗАДАЧА №1
ЧЕРЕЗ ---IF----
ДАНЫ 3 ЧИСЛА A,B,C ОПРЕДЕЛИТЬ КАКОЕ ИХЗ НИХ РАВНО D ЕСЛИ ОДНО НЕ РАВНО D ТО НАДО НАЙТИ MAX (A-D,d-b,d-c)
ЗАДАЧА №2
ЧЕРЕЗ--ЛИНЕЙНОЕ--
СОСТАВИТЬ ПРОГРАММУ ВЫЧИСЛЕНИЯ ОБЬЁМА КОНУСА И ЦМЛИНДРА КАТОРЫЕ ИМЕЮТ ОДИНАКОВУЮ ВЫСАТУ
---H--- И ОДИНАКОВЫЙ РАДИУС --R--

(1)
Var A, B, C, D, Max: Real;
Begin
Write('Введите A B C D через пробел: ');
ReadLn(A,B,C,D);
If A = D then WriteLn('A = D')
else If B = D then WriteLn('B = D')
else If C = D then WriteLn('C = D')
else
Begin
Max := A-D;
If D-B > Max then Max := D-B;
If D-C > Max then Max := D-C;
WriteLn('Максимальное = ', Max: 0: 6)
End
End.
(2)
Var H, R: Real;
Begin
Write('Введите R H через пробел: ');
ReadLn(R, H);
WriteLn('Объем цилиндра = ', Pi*Sqr(R)*H: 0: 6);
WriteLn('Объем конуса = ', Pi*Sqr(R)*H/3: 0: 6)
End.

СПАСИБО ЗА ЗАДАЧКИ