Помогите срочно очень!!!!1. Написать программу вычисления выражения, значения a и b вводятся с клавиатуры. D=a+b делёное 2ab2. Введите числа в переменные 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.