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

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.