Задать 2 числа .вычислить (в паскале) (a*b)/(2a 1) a+b/a-b

Program z11;  Var a,b,c,d:real;Begin  write('Введите 1-ое число - '); readln(a);  write('Введите 2-ое число - '); readln(b);  c:= (a*b)/(2*a + 1);  d:= a+b / a-b;    writeln('ответ 1 = ', c);  writeln('ответ 1 = ', d);  End.