Складіть проект для обчислення значення виразу a+b-c: (a-2b). (это надо сделать в lazarus, pascal)

Var
a,b,c:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
WriteLn(a+b-c/(a-2*b));
End.