Сестры аня и оля подсчитали свои денежные накопления , у них оказались разные суммы. какая сестра должна дать другой денег и сколько,что бы у обеих сестер суммы стали равными?

Var a,b,c:real;
begin
writeln ('Введите количество денег Маши и Даши');
read (a,b);
if (a>b) then
begin
c:=((a+b)/2)-b;writeln ('Маша должна дать Даше ',c);
end;
if (a<b) then
begin
c:=((a+b)/2)-a;writeln ('Даша должна дать Маше ',c);
end;
if (a=b) then writeln ('У них равное количество денег');
end.