Срочно! покупатель сделал в магазине 3 покупки. определить сдачу после покупок

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  var c1:=ReadReal('Цена первой покупки:');  var c2:=ReadReal('Цена второй покупки:');  var c3:=ReadReal('Цена третьей покупки:');  var s:=c1+c2+c3; Writeln('Сумма к оплате: ',s);  var p:=ReadReal('Внесена сумма:');  Writeln('Причитается сдача: ',p-s)end.ПримерЦена первой покупки: 152.40Цена второй покупки: 375Цена третьей покупки: 140.62Сумма к оплате: 668.02Внесена сумма: 700Причитается сдача: 31.98