Безотлагательно! клиент сделал в магазине 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
Цена 2-ой покупки: 375
Стоимость третьей покупки: 140.62
Сумма к оплате: 668.02
Внесена сумма: 700
Причитается сдача: 31.98

X-(a+i+k)=y

x - Клиент оплатил

a - Стоимость I товара
i - Цена II товара
k - Стоимость III продукта

y - Сдача