! Написать программу вычисления выражения, значения a и b вводятся с клавиатуры

Помогите срочно очень!!!!

1. Написать программу вычисления выражения, значения a и b вводятся с клавиатуры.
 
                                               D=a+b делёное 2ab

2. Введите числа  в переменные  a, b и c и  напишите программу, которая меняет  местами значения переменных по следующей схеме: чтобы в  переменной  а оказалось первоначальное  значение переменной с,   в переменной  b – значение а,     в  переменной  с – значение b.

• var a,b,D: real;  begin  write(‘Введите a: ‘);  readln(a);  write(‘Введите b: ‘);  readln(b);  D:=(a+b)/(2*a*b);  writeln(D);

  end.