Паскаль. Задача на циклы.

[leapin]

Помогите,пожалуйста.
Нужно составить программу помощника кассиру.
ЭВМ должна запрашивать цену товара и его количество,подсчитывать суммарную стоимость купленных товаров, запрашивать сумму денег,внесённых покупателем, и определять причитающ. ему сдачу.

Только с объяснением и подробно,очень прошу.

[Mad_Cat]

{Помогите,пожалуйста.
Нужно составить программу помощника кассиру.
ЭВМ должна запрашивать цену товара и его количество
,подсчитывать суммарную стоимость купленных товаров, запрашивать сумму денег,
внесённых покупателем, и определять причитающ. ему сдачу.}
var kol:real;price:real;sum:real;all:real;
begin
kol:=1;
sum:=0;
repeat
writeln('Введите количество товара , если товар кончился введите 0');
readln(kol);
if kol=0 then break;
writeln('Введите цену товара');
readln(price);
sum:=sum+kol*price;
until kol=0;
writeln('Итого');
writeln(sum:6:2);
writeln('Введите сумму денег данную покупателем');
readln(all);
writeln('Сдача:',(all-sum):6:2);
readln;
end.

[leapin]

cпасибо Вам за помощь