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

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